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Pro DOS 专 栅 
一 RAM 电 子 磁 隧 一 | 
实用 程式 


司 缩 反 强 一 一 高 解 像 圈 案 工具 程式 之 三 
把 小 楷 饮 成 大 楷 字 母 


用 家 心得 
改 肥 Autostart ROM 
条 用 BASIC 的 VAEL 及 IMID $ 指 兮 


程式 乐 国 
人 金字塔 内 的 外 星人 3 
和 
电 胜 考 你 
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和 综合 性 DOS 3.3 习 计 软件 








由 DOS5， 5 推出 到 现在 
已 运 有 很 多 资料 是 关於 如 何 改 卫 
一 0835 .35， 加 纹 其 功能 等 。 
要 在 D 0 8 上 加 上 功能 的 坎 已 有 
很 多 ， 大 多 数 以 机 械 萎 言 形 式 加 
上 去 。 而 亦 有 关 於 更 改 D Q 8 指 
今 名 称 。 搬 移 UT0OC 等 * 但 大 多 
数 都 是 分 散 的 。 我 从 现在 要 介 帮 
的 坎 件 便 是 利用 一 个 主 涟 择 表 程 


式 ， 将 它们 芋 合 起 来 。 
DOS3S，。，5 设 寻 坎 件 是 由 

多 个 副 程式 租 成 的 。 其 中 包括 的 

功能 有 : 

1. 改 良 D 0 8S 指 合 

2. 更 改 D08S ERROR 讯息 

3. 更 改 CATALOG 的 DISK V 
一 0LUMBR 文本 

4. 改 和 档 案 种 类 及 IOCK UNL 
- 0OCK 符号 


5. 禽 D O 8 加 上 往 器 
6 重 置 VTOC 及 目录 ， 包 括 在 了 
一 TacKk9235 

另外 包括 一 个 不 令 程 式 印 列 
出 来 的 功能 。 

演 些 功能 分 别 载 共 四 个 程式 
之 内 ， 其 中 首 三 项 功能 ， 载 在 其 
中 三 个 程式 之 内 ， 而 余下 的 功能 
便 与 主 先 择 委 共存 认 一 个 程式 之 
内 。 


证 程式 及 其 功能 


在 执行 主 程式 蛙 。 会 首先 显 


示 主 冰 择 录 。 其 内 容 如 下 : 


《 INIENU 》 


1) 008 COMMANDS 

2) 008 ERROR WESSABES: 

31 DISK VOLUME TEXT 

4) FILE TYPE CHARACTER 
5) ADD SERIAL NUMBER 
6 UNLIJSTABLE PRD6RANS 

7) RELOCATE VTOC 和 INIT 
B) EXIT 


其 中 第 4 至 8 项 是 由 程式 本 身 负 
喜 的 。 如 果 法 摆 第 1、2 或 3 项 
,程式 便 合 自动 把 要 使 用 的 另 一 
个 程式 载 和 使用。 我 们 先 看 看 在 
主 程式 内 其 本 身 所 有 的 功能 。 
档案 种 类 符号 ( 第 4 项 : 了 IIBE 
TYPB CHARACTBR ) 


过 个 功能 可 以 绪 你 更 改 在 C 
一 ATIALOG 显示 上 有 蛙 。 档 案 种 类 
的 符号 。， 更 进一步 的 。 你 可 以 更 
改 OCK ~UNILOCK 的 委 示 符 
号 吕 

在 DOS8 ProgrammeT” 
s Manual 指出 DOS3 ,5 
有 五 类 档案 : A( ApplIesotf 
--t)。TI(Integer)j。T(IT 
一 exzt )。BC(Binary) 及 愉 
( Relocatable)j 。 在 过 个 
功能 袁 可 以 鞠 你 更 改 I、 工 、A 
及 了 的 四 种 档案 。 

这 种 更 改 的 功能 可 以 用 来 作 
保 芒 ， 例 如 你 有 一 个 原来 是 有 一 
pplesoft BASIC 的 档案 ， 
本 来 在 CATAL0OG 之 下 应 蔽 显示 
倚 “ A ” 矣 型 ， 如 果 你 用 过 何 号 . 
能 把 它 改 篇 ”3 了 3“ 颖 型 。 则 不 知 
道 的 人 便 以 集 是 Binary 档案 
*。 便 合用 BRUN 或 BELOAD 去 对 
到 个 档案 工作 。 壳 样 他 只 有 很 到 


了 工 工 也 .TYIEPR MLISMATIC 瑞 


了 ERROR 
加 上 柱 号 ( 第 5 项 : ADD SER 
--IAL NUMBER) 

过 个 功能 在 你 的 D 0 8 空位 


上 加 上 一 个 6 一 byte 的 编号 


”由 地 址 4698 9 至 4699 
4 ， 它 可 以 用 来 倚 你 设 定 过 个 了 了 
一 0 .85 的 版 本 *， 如 果 有 所 改良 可 
以 用 另 一 个 编号 。 用 以 办 列 。 
而 且 它 亦 可 以 用 作 保 芒 之 用 
。 例 如 在 你 寓 的 程式 前 。 功 上 一 


个 核对 三 号 的 小 程式 。 如 果 不 对 
便 不 孝 行 等 。 


示 把 程式 即 列 (第 6 项 : UNILI 
--STABILBE PROGRAMS ) 

” 迁 个 保 葵 方法 即 蔬果 用 家 月 
刊 第 2 5 期 所 介 粗 的 POK 卫 2 1 
4，255 方 法 ， 不 尝 你 要 紧 正 
有 过 项 功能 便 需 要 用 改良 了 的 了 
-083 3 大 动 地 可 以 。 


重 置 VT0OC 及 目录 ( 第 7 项 : 
RELOCATBE VTOCS INIT) 
” 由 苍 *“D0S3 ，3 届 计 款 
件 ” 程 式 。 在 更 改 上 只 是 在 於 了 
一 AM 上 。 你 可 以 把 已 更 改 的 D 
一 083，. 3 把 它 用 来 格 化 一 片 


用 过 个 新 的 D 083'， 3 和 需 S 一 


ystem 磁 碟 ， 过 个 第 7 项 功能 
便 是 作 此 用 和 途 。 但 由 於 它 使 用 工 


一 NIT 指令 所 以 如 果 被 格 化 的 


磁 检 如 果 是 有 资料 的 。 将 全 被 清 


” 除 ! 所 以 最 好 故 一 片 空 碟 格 化 如 


个 新 DOS 3。 3 磁 碟 。 
VTOC 部 份 可 以 屠 你 把 V 一 
TOC 及 目录 移 到 磁 矶 上 的 任何 
一 条 Track(DO0S System 
的 Track $o~2 除 外 ) ， 
如 果 你 的 磁 碟 机 可 以 存 取 ITrac 
一 35($23)， 你 亦 可 以 


把 YT0C 帮 在 过 吉 。 由 於 VTOC 


的 位 置 可 能 会 改 构 。 所 以 在 与 标 


便 需 要 通常 地 更 改 VIQ4 有 的 工 一 


ointer $ACoI(4490 
55) 了 。 


程式 的 血 存 


主 程式 请 以 : 
SAV 了 了 DO08.DBESIGNER 
储 在 磁 原 上。 





综合 性 DOS3， 3 
避 引 软件 十 程式 


100 [CLEAR ，TEXT !， HOIE 

4110MNP=8:0 = CHR (4) 

120 INVERSE 

130 FOR I=0T0O 9 PRINT 条 3 
NEXT 1 

140 FOR LI >07T0 20; FRINT“#” SPC( 
12) 和 EXT ] 

J30 fOR 1 = 0T039 FRINT “人 3 


NEXT 1 


1640 HTAB 0; VTA8 4，PRINT “0D09- 
170 HTAB 4 PRINT “DESIGNER ， PRINT 


:PRINT PRINT “入 和 生生 失 和 人 条 和牛 
检 ” 


180 PRINT ，HTAB 6 PRINT "BY NTAB 


4 PRINT “SNAD PRINT 下 RNT 
的 林 和 和 相生 竹村 条 全 提 


190 PRINT ;PRINT ，HTAB 3; PRINT 


"COPYWRITE"， HTAB 5 PRINT “ 
18895"，HTAB 上 PRINT “BY 


200 HTAB 3 PRINT “SUPERHER0” 


210 
220 
230 


240 
250 


260 
210 


280 


290 


300 
310 


320 
330 


340 


FOR I = 2T0 22，YVTAB TI， HT 人 B 
40: PRINT "#=， NEXT 1 

PKE 32,15:，POKE 33,24，POKE 
34 1: POKE 35，21 

HOME NORNMAL ，PRINT ，PRINT 

《 阶 IN 屁 抽 ) 

PRINT 

FOR I = 1 TO NP，READ 9， PRINT 
i) “的 :EXT 

PRINT 

VTAB 14; CALL - 959:， INPUT 
"SELECTIOH =》 “人 = VAL 
(的 ): IF AT ORA 》8 THEN 
270 

IFA《4THEN PRIMT ，INVERSE 
，PRINT "PLEASE STAND BYs3 ORAL 
， 0NERR 60T0 330 

ON AN 60SdB 300,310,320,350 ,6 
80,800,830,1230，RESTORE ，80T70 
230 

PRINT D$yRUN COMMAND CHANEE 

Rn" 

PRINT 0$;wRUN ERROR, MESSAGES 


PRINT 04; 2RUN DISK,VOLUNE。 
IF PEEK (222) = 上 THEN CHRS 
(7); PRINT "PLACE 905 DESI6N 
ER DISK"，PRINT "IN DRIVE AN 
0 PRESS" PRINT “KEYs。 WAIT 
- 14384,128，POKE - 16368， 
0 VTAB 17: [CALL - 958:， 60T0 
290 
PRINT ，PRINT "ERROR ##* PEEK 
(222)，PRINT PRESS KEY PRINT 
*TG CONTINUE"， WAIT = 16364 
,128: POKE -~ 14368,0，60T0 
270 


350 秒 (1) = “TEXT FILE 生体 (2) = 


1NTEGER FILE 人 (3) = shPP 
LESOFT FILE 时 :到 $(4) = BINNR 


Y FILE “3N15) = “UNLDOCKED 上 
ILE “3 人 (6) = “LOCKED FILE “” 


360 NN 本 =- TIRB 和 


370 
380 


390 


400 
410 


420 


430 


HOME -，VTAB 3 
FOR I = 1T0 6 PRINT TID 
(NT 1 as 人 (1 NEXT 工 


PRINT ;， PRINT “ENTER IEW CH 
RACTERS 3 

FOR I = 1 T06 
VTRB 12，CALL - 959，PRINT 


租 (1)s》 人， INPUT 一 旺 伟 

IF LEN ( 必 ) 》1 THEN PRINT 
"ONE CHARACTER LINIT 1 CALL 

- 1052， FOR ] = 1 TD 2000， NEYT 
J;， 60T0 410 

IF 必 =mTHEN 性 = 机 吐 { 
MT 


440 中 = 和 诅 + 0 了 ET 


450 


460 
470 
480 
490 


900 


510 


920 


HOME :WTAB 3; FOR 1 = 1 T0 
全 PRINT MID (人 Ti) = 。 
1{T) NEXT 


PRINT ，INPUT "CORRECT {YES/ 


MD) = ?5 
IF LEFT4 《AN ED 《 》wYs THEN 
时 = 60T0370 


FoRI=1T04 


VThAB 2 + 1 HTAB 20: CALL : - 
868;， FLASH PRINT "=*。 NORNAL 


VTAB 10， CALL -=- 968，PRINT 

中 JSPLAY CHARACTER 条 TI 3 
PRINT ;PRINT <N》 NORNALs 
PRINT “FFLASHIN6s PRINT 
《1I》 TINVERSE" PRINT ， PRINT 

: TNPUT “SELECTION =》 

IF 肝 = NTHEN X = 126， 6070 
550 

If 履 = "FTHEN X = 0 8070 

550 


530 If sz: THENY = - 64 60T0 
5 人 
540 “60T0 500 
550 = ( hSGC (有 0 《13 
-500 IF 827 AND Im 126 THEN 
60J0 620 
510 IF BV《 27 AND X = 0 THEN BY 
.sgV+1l28 
580 JIF SBV《27 AD XI = -64 THE 
ByV = BV + 192 
590 TBV《L64 AND 人 >》 THEN 
ByV zsBV+ 娃 
oo0 JI=5THEN 430 
bt0 IF I=THEN 440 
620 POKE 45990 + TB8VY + 
630 POKE 44508,BV + X 
640 ， POKE 44515，8BV + 
450 VTAB 2 + 1: HTAB 20， CALL -~ 
868 
b60 NEIT 1 
6870 .VTAB 17: HTAB 1，CALL - 958 
PRINT “THE DEED I3S DONE 78 
:FOR 1 = !1T0 2000: NEXT 7: 
RESTORE :RETURN 
o80 RHONE ; PRINT ; PRINT ”“ 005 
SERIAL NUNBER 》 六 
690 PRINT ，PRINT “YOU NAY ENC00 
上 SIX 
700 PRINT 0I6IT SERIAL NUNMBERa 
710 PRINT “WITH THE 003 IMAGE ,“ 
720 PRINT ; PRINT 
730 ITNPUT “ENTER NUNBER =223 SN 人 
740 :IF LEN (SNY) 《1 DOR LEN (5S 
N$) 6 THEN PRINT “HUST BE 
-6 DTI6ITS CALL =” 1052 
: FRI = 上 LT02000，NEXT [: 
60T0 680 
750 FOR I=17T0 LEN (SN 
760 X = 人 ID 全 (SN 二， 
770 POKE 44988 + TI，ASC 《ys) 


780 NEXT 1 . 
790 VTAB 17: HTAB 1， CALL -~ 958 
PRIMT "THE DEED I8 DONE 和 
: FOR IT = 1 T0 2000; NEXT 1: 
， 隆 STORE ，RETURN 
800 POKE 42210,74: POKE 42211，23 
3: POKE 42212,188 
810 POKE 49351,169， PKE 48352,2 
55，POKE 48353,133，POKE 483 
54,214; POKE 48355,108， PDKE 
48356,86，POKE 48357 ,157 
820 VTAB 17: HTAB 1 CALL - 958 
; FRINT "THE DEED 13 DONE 4 
FRI=1iT02000 NEXT TI 
， 王 STORE 8 RETURN 
时 0 TEST ，HOIE 
840 FT$(1) = "APPLES0FTsFT(2) = 
5TNTEGER9 :FT 和 (3) = ”BINARY 
FT4(4) = "TENT 
850 Di = "《 RELOCATE VWTDC 妇 JN 
TIALIZE DISK 》》 
860 VTAB 2; HTaB 2;， PRINT "< RE 
LOCATE VTSC INITIALIZE DIS 
K >》 
6704 PRINMT ， FOR 1 = 1 T0 40;， PRINT 
“NT 
860 INPUT "VTOC TRACK # 《3-35) 0 
ECINAL =》 2 TKS PRINT 
890 全 = VAL (TKS) 
900 IFTK(30RTK 》35 THEY 93 
0 
?910 【NPUT "BREETIN6 PROBRAN NAME 
=》 "NS CALL ~- 968 
?920 IF NM = ”THEN CALL - 105 
2; PRINT "ILLE6AL FILE NANE 
!" FOR TI = 1 T0 1000: NENT 
I:VAB8，CALL - 959;600T1040 


9 IF LEN 人 和 > 300R ASC (人 LEFT 


01《 好 有 RMC (LEFT 


(NNS II)) >》90 THEN 《LALL 
1052;， PRINT “ILLESAL FILE AN 
几 :FOR I= 1 TO1000; 扯 X 
【I:VhB8: CALL - 958:60011040 


940 PRINT ，PRINT "6REETIN6 PR06 
RAN FILE TYPE， 
950 s1- APPLESOFT"， PRINT *2- INT 
EBER" PRINT 3- BINARY"。， PRINT 
“4- TEXT PRINT "SELECTIDH 
=》9 FT 
960 FT = WAL (FT4) 
970 IF FT《1gRFT 》4THEN VTAB 
9 CALL - 1052， CALL - 958 
”6070 940 
980 Tf FT = 3 THEN POKE 40514， 5 
2 
990 IF FT = 4THEN POKE 40514，2 
0 
1000 PRINT 
1010 INPUT "PLEASE IN9SERT TREE 
DISK = 和 
1020 CAEL : -. 1052 VTAB 4 ALL 
-= 5958 
1030 FLASH ，PRINT "ATTENTION: 9 
NORNMAL ，PRINT ，PRINT PRINT 
PRINT "PROCESS DESTORYS AL 
L DATA ON TAR6T DISK" PRINT 
4 PRINT 
1040 PRINT CURRENT PARANETERS; 
; PRINT 
1050 PRINT ATOC TRACK # =》。TK 
1060 PRINT "GREETING PROGRAN NA 
E yah 
1070 PRINT FILE TYPE =》 "FT4(FT 
) 
1080 PRINT ，JNVERSE :， PRINT <C 
TRL?9" NORMAL ， PRINT ”T0 
-，FROCEE “INVERSE PRINT 
sESC9 3 NORNAL ， PRINT ，T0 


CANCEL” 
1090 PRINT ， PRINT "WERIFY T0 PR 
0CEE8 = BET 条 
1100 了 下 租 = HR (27) THEN 120 


110 IF 条 人 》 CHR (19) THEN 
920 

1120 PRINT 

1130 VAB10 CALL ~- 959， HTAB 103 

INVERSE ，PRINT 。 INITIALIZ 

ING DISK "NORNAL 

1140 TT = {TK + 4) 

1150 IF TK = 35 THEN POKE 44725 
4 


了 1100 POI 44741TT; 0 44745，T 


T+4 
1170 POKE 44033TK: POKE 46012,T 
K; POKE 48894,36，POKE 44744 
-1TK:， POKE 46043，36 
1180 PRINT 0 答 5NITeN 
1190 HONE ，VTAB 8 
1200 PRINT "THNE DEED I9 "UNE。 
1210 PRINT ，PRINT "RE900T PROBR 
AH DISK 
1220 ENI 
1230 TEXT ;HOME ，VTAB 12 
1240，PRINT "TO SAVE ALL PRTCNES， 
INMITIALIZE4， PRINT sh NEW 
TSK 0 全 -RUN“D0S DESIGNER， 
人 D*，PRINT "SELECT 0PTION， 
了 
1250 END 
1260 DRTA 00S COWMANDS,D0S. ERRDR 
陇 SSAGES，JISK VOLUME TEXT 
1270 DhTA FILE TYPE CHARACTER ,AD 
1 SERIAL NUWBER,UNLISTABLE P 
RDGRAMS,RELOCATE VTOC & INIT 


,人 EX 工 
折 


DO S3.3 设 计 软 件 
第 1 项 副 程式 一 一 改 式 DOS 指 合 


8 了 
-一 





在 DOS35 ， 5 设 寻 坎 件 中 
*， 第 工 项 的 功能 (DOS  C- 
OMMAND ) 是 在 另 一 个 分 此 程式 
中 ， 沉 你 在 主 程式 的 选择 表 吉 渤 
了 第 工 项 后， 它 便 会 自动 载 人 过 
一 部 份 的 程式 及 执行 。 其 它 2 及 


5 项 都 是 一 样 。 在 程式 执行 完 稚 
， 便 合 再 区 载 入 主 程式 执行 。 


改良 D 0 8 指令 (第 上 项 ;: D 一 
08 COMMANDS ) 
当 程 式 载 和 人 后 ， 便 有 如 匮 坟 





的 渤 择 玫 。 程 式 会 草 取 现 竺 了 一 


QS835。 5 指令 雪 的 指 傅 名 字 ， 
及 一 侦 小 法 择 表 在 性 面 的 下 方 。 
如 果 你 使 用 的 D 0 8 兹 非 使 用 标 
准 的 指令 名 字 ，。 可 以 利用 渤 择 入 
的 S 键 显示 标准 的 D 08S 5 
指 邻 名 字 。 


指 今 交 本 各 共 的 长 度 禹 上 1 
2 bytes ，。 你 更 改 的 名 字 不 可 
以 超过 此 数 。 渤 摆 表 中 的 “ 开 一 
RE BYTES = ”会 提醒 你 有 
多 少 Bytes 是 空 出 来 的 。 

要 更 改 -- 个 指令 的 名 称 。 先 
输入 其 在 渤 摆 妇 中 的 术 号 ( 1 一 
1 5 ) 。 所 有 的 指令 名 字 必 须 至 
少 有 两 个 字符 ， 最 多 需 上 5 个 字 
符 长 。* 一 个 ( 闪 ) 过 样 的 符号 是 
指示 你 有 多 少 空位 可 以 过 入 指 含 
字符 ， 而 标 半 的 指 分 名 字 会 感 示 
在 得 面 的 底部 作坊 提 示 及 上 比较 之 
用 。 

修改 了 的 名 字 在 兽 面 上 会 以 


反 白 形式 显示 。 当 你 改 克 了 指 仿 
名 字 和 后 。 可 以 在 主 渤 择 委 中 挟 
R 项目 。 把 新 的 指 命名 字 表 术 
入 记 司 体内 ， 按 了 区 」 便 会 把 控 


制 权 带 回 主 程式 。 


如 果 你 更 改 RU 指令 名 字 
* 污 择 [MXMJ 便 合 出 现 SYNTA 
- 芭 _ BRROR ， 过 是 因 息 程式 是 
用 RUN 指令 返回 DO S 。D 一 
PSIGER 程式 的 主 泗 择 表 。 

在 改 李 了 名 字 和 后 ， 程 式 林 以 
号 你 以 卫 X 了 RC 式 的 文本 档案 把 它 
侯 起 来 。 把 要 改 权 的 地 址 用 了 一 
OK 了 指 今 写 成 再 用 BASILC 的 
行 号 把 它 华 存 。 适 样 你 便 拥有 一 
个 非 标 举 的 D 0 8 指令 名 字 的 副 
程式 ， 你 可 以 把 它 加 在 你 自己 的 
BASIC 程式 上 使 用 。 


程式 的 办 入 


程式 在 键入 谷 。 请 用 以 下 的 
名 字 储 起 : 

SAV 下 COMMAND. CHAN 
一 GER 本 
者 个 程式 亦 可 以 单独 使 用 。 只 要 
把 行 号 410 的 “< >MENU 
” 改 需 <Q> QUIT ”， 及 行 跳 
450 的 IB CH4=“ M>”T 一 
HEN PRINT D$;“RUN D 
-08 - DESIGNER ” 改 垮 I 


一 卫 CHq=“Q”THEN HOM 


一 卫 : NTD 便 可 。 


改 慨 D 0 8 指令 名 字 程 式 


100 CLEAR TEXT 

110 吃 = CHRY 《4) 

120 DIMH NCS(2 的 ,CS(29) 8 和 (28) ， 
NI28) 0 和 028) 

130 608b 780 

140 REN 

150 H0E 

80 = (CURRENT COMNANDS )》 


170 1 es LEN 4) 712 : 

180 PRINT TAB( 20 = XD1 

190 FOR I = 0 T0 398 PRINT 

ETIT 

200 PRINT 

240 Fo TI = 1 T0 2 

220 IF I 14 THEN NTAB 25 

230 IFI《15 THEN HTAB 5 

240 IF INI) 》0 THEN INVERSE 

250 PRINT-eCy 全) 

260 NORNAL 

270 IFI。14THEN VTAB 3 PRINT 

2860 NENT ] 

290 PRINT 

300 FOR IT = 0 .T0 39; PRIMT "9 
NEXT 1 

310 WTAB 4 

320: FI = 1 T0 28- 

330 IF IT y14 THEN NTAB 20 

340 IFI《10THEN MTNB 2 

350 PRINT IT 

360 IF ITz=14THEN VTAB 人 

310 NETI 

380 PRINT 

590 PRINT 

400 PRINT *S= STANDARD"3: HTAB 2 


0:， PRINT *fREE BYTE9 aeFC 
410 PRINT NMENU 。 HTAB 20: 
PRINT *(R》REPLACE* 
420 WTAB 23， HTAB 10:， CALL - 95 
6; INPUT "SELECTION =》 93 CH 

430 CH = WAL (CH 

440 0NERR 60T0 1400 

450 IF CHS = 二。 THEN PRINT 1 和 
waRUM D95。DESTGNERA- : 

460 POKE 216,0 

470 IF CHy = "R THEN 890- 

490 3F CH = *S4 THEN 890 


490 IF CH LOR CH 》28 THEN VTAB 


23; [ALL - 1052:、6070 420 
500 Ni 和 = 0000000001ittllesN24 = 
"123456789012345 
510 HOME 
520 Di = %( 00S CONHAND CHANGER - 
)》 
530 PRINT TAB( 20 - X)D1 


540 PRINT PRINT 


550- 034 = 。 FREE CHR =》， 
540 FOR TI = 0 T0 39:;PRINT 叶 呈 : 
NEXT 1 


570 PRINT 


580 【NVERSE 

590 HTAB 20: PRINT Ni 
600 HTAB 20，PRINT N2$ 
610 NORHNAL 


820 VTAB 22;， JWVER9E ;HTAB 5: PRINT 


1， STAND 005 CONNAND as》 :CC 
(Ch) 
60 NORNAL 
040 TAB 8， PRINT wCURRENT CONRA 
ND =》 = CCCH) 
650 PRINT ，VTAB 8 HTAB (20 + 【EN 


660 


470 


680 


的 0 


700 
710 


720 


730 


740 


《CC 有 人 CH) )) INVEF: 二 ， PRINT 
“NORN 人 AL 

VTAB 9 HTAB 20: FOR 7 = 1 T0 
15; PRIMT "-s NEXT 1 
10 CALL - 868: HTAB 

20 + LEN (CCSCCH)) + FRI 
LEN (ttktCH)) + (FPC YY 20) 》 

4 THEN HTAB 35 

VTAB 10 LINVEPRS5 PRINT "< 
NORNAL 

VTAB 10: HTAB 5，INPUT “NEN 

CONMWAND =s》 "5 NCS(CH) 
IF NCSCCH) = "THEN 140 


下 LEN {NCS(CH) 《2 THEN PRINT 


:PRINT “人 EN COMNHAND MUST AT 
LEAST 2 CHARACTERS"， CALL ~ 
1052: FOR 1 = 1 T0 2000 NEXT 
J，VTh 人 B 12: [ALL - 868: 60T0 
t70 
IF LEN {NC 人 (CH)) > LEN (CC 
$(CH)) + FC THEN PRINT PRINT 
“CONNAND MUST BE 2 ”LEN 人 
(和 (CH) ) + FC” CHARACTERS"，C 信 LL 
~ 1052 FOR [= 丰 T0 2000，NEXT 
1 TAB 12: .CALL ”868: 6070 
470 | 
IF LEN (NCY(CR) ) 》15 THEN 
PRINMT : PRINT “WAXTNMUN COH 
AND LEN6TH 13 CHARACTERS*: ; 《CALL 
~ 1052: FOR I = 1 T0 2000:， 有 EXT 
1I;， VTAB 12;， CALL - 8686;，60T0 
4670 
IF LEN (CC 和 (CH) ) >》 上 EN (人 NP 
$(CH)) THEN FC = FC + 《上 EN 
(CC 地 (CH))》 -LEN 《NC 和 (CH) ))， 
80T0 7 的 


750 FC = FC + (LEN (NC(CH)) - LEN 


(CC 和 CH) ) ) 


740 CC 人 CH = NCS(CH) ;IN(CH) = 全 


770 


HONE ，60T0 150 


780 FOR IJ = 1T0 28; READ SCS{T) 
; 化 XT 了 

790 FOR IJ > 1 T9 20:IN() = 0 IEXT 
[ 

800TI=1IIFCz=0 

8l0 FOR SA = 43140 T0 43271 

820 租 s CHR ( PEEK 【SA)) 

83S0 CI) = CS 人 TD + 名 

640 JIF ASC (A) 》128 THEN .1I = 
I++1| 

850 JIF ASC (AS) = 0 THENFC xs 下 
c+l 

6680， 用 X 3R 

870 RETURN 

880 RESTORE :FOR I = 1 T0 28，READ 
ceg(1)INI) = 0 NENT IIFC > 
0: 60T0 150 

890 VTAB 22: HTAB 20: FLASH ，PRINT 
“REPLACEIN6， NORNAL 

900 FOR I=17T0286- 

?0 FOR Js 1 TO kEN {(CrtI)) -~ 
[ 

920 [LS 和 = CS 本 + 放 ID 和 《人 1 
) 


930 NEXT 1 
940 = .NSC (RIGHT 和 《CCs() 1 


990 IF X >128 THEN 970 

960 X = X + 128 

970 [3 下 = [59+ CHRY () 

980 泪 XT 

990 了 TF LEN 《CS 多 ) 《 133 THEN CS 本 
= [3$+ CHRY (0 60T0 990 


1000 FuR I = j TO 1352 

1010 POKE 431389 + TI，ASC ( 人 ID 
(5S$，) ) 

1020 NEXT 1 

1030 (5 = 

1040 TAB 22 CALL - 8868: PRIN7 


: TINPUT “SAVE CHANGES AS 8 了 
-上 XT FILE (YAND) = 和 人 AN 全 
1050 IF LEFT4 (6NS 1 =“Y9 THEN 
60SU8 1080 
1060 VYTAB 23: CALL ~- 868:， ITNVERSE 
， PRINT “PLEASE NORNAL 
PRINT ”STAND BY CLEARINBG 并 
EMORY 
1070 6070 100 
1080 HO 人 E ，VTAB 3 PRINT "CR 
EATE 全 CONNAND CHANGE TEXT F 
LE >》 
1090 PRINT ;FOR 1 = 0 T0 39:. PRINT 
"人 NEXT 
!100 VTAB 10:， INPUT “ENTER FILE 
NANE = NA 本 CALL = 958 
1i10 IF NA = ”THEN CALL =- 1 
052: PRINJT “ILLE6BAL FILE NAII 
E 60T0 1100 
1120 IF LEN (Nh) >》30 0R 人 9C 
( LEFT (Ni 《65 0R 后 C 
(LEFT 和 《NA 1 ) >》90 THEN CALL 
- 1052: PRINT “ILLESAL FILE 
NANME ! 60T0 1100 
1130 VTAB 12:，IMNPUT "ENTER START 
IN6 LINE 本》 3 CALL “- 
958 
tlL40 3L .= VAL_(SLY) 
1l50 IFSLL1LOR SL >》653999 THEN 
人 ~ 1052: PRINT “TILLE6A 
L LINE NUNBER !2，60T0 1130 
1160 VTAB 10， CALL -~ 958: TINVERSE 
PRINT “CURRENT PARANETERS 
“ORAL 
1170 PRINT ;PRIMT "TEXT FILE NA 
- 引 =y NAS PRINT ， PRINT ， 
5TARTING LINE NUNBER =》 "9L 


1180 FRINT ， INPUT "VERIFY PARAI ， 
ETERS (YAN) =》 和 各 


1190 下 LEFT 181) >》 YY THEN 
1080 

1200 PRINT 0$; ON CID。 

1210 PRINT 0 和 0PEN NAS 

1220 PRINT 8 DELETE。 NA 

1230 PRINT [0 0PEN NA 

1240 PRINT DRITE NA 

1250 FOR SA = 434140 T0 43271 

!260LsC+l 

1270 IFCasl0THNCe 

1280 IFU《4 》1 THEN 1320 

1290 PRINT 

1300 PRINT 8L; 

1310 5 = 所 +Y 1 

1320 PRINT ”POKE “3 SA ;PE 人 
(3A) 

1330 NEXT SA 

1340 PRINT 

1350 PRINT DRLOSEINA 

1360 PRINT 0 NOMHONC TO VTAB 

PEEK 《37)3 -CALL - 8 

1370 RETURN  ，… 

1380 DATA INIT,LOAD， SAVE， RUNCHA 
NADELETE， LOcK， UNLUCk CLOSE， 
READ， EXEC,HIRITE,P0SITION,OPE 
N， APPEN 

1390 DATA RENARNE ,CATALOEG， MON， NO . 
0N PRIME NAXFILES， FP INMT,8 
SAVE ,8BL0AD ,BRUNWVERIFY 

1400 IF PEEK (222) s 4 THEN HOWE 

; VTAB 12: PRINT “INSERT D0S 

,DESIGNER DISK AND PRESS 入 类 

EY 有 IT -= 16384 ,128:，POKE 

-16368, 0 60T0 450 

1410 HOME : VTAB 12， PRINT “ERR0 
R # PEEK (222) 和 INLI“ 
; PEEK (218)》 + PEEX 《219)》 才 . 


296 
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DOS3.3 设 计 软 件 


第 2 项 副 程式 一 


D 08S 5 . 35 设 对 软件 的 第 


2 项 功能 亦 是 在 另 一 个 分 风 的 程 


式 中 。 在 主 程式 的 愤 择 委 选 了 第 
2 项 后 便 和 进入 融 个 功能 。 


更 改 DO0S BRROR 詹 息 ( 第 2 
项 :DISK VOLUME TEXT ) 
进入 过 个 功能 和合 。 便 会 出现 

蜀 ( 1 ) 的 泗 择 委 。 其 操作 的 过 

程 及 形式 与 第 1 项 功能 人 改 琶 了 

一 08 指 今 ) 是 差不多 。 4 但 是 有 

趟 点 要 大 家 注意 : 

1. DOS HRROR 慰 息 原来 共有 
1 6 个。 但 只 有 其 中 工 4 个 读 
息 显 示 ( 其 用 卫 RROR COD 刁 
2 及 35 是 RANG 卫 了 RROR) 





圈 ( 工 ) 


<< CURRENT ERROR 蚌 SSAQES >> 








更 改 DOS ERROR 裔 息 


2. 卫 RROR 姑 息 的 文字 长 层 限 制 
於 5 0 个 字符 以 内 “。 

3. 所 有 的 改 息 圣 少 机 个 两 个 字符 

4. 由 於 Applesoft 和 DOS 
都 可 以 产生 SYNTAX 卫 RRO 
一 及 积 息 ， 改 丢 D 0 8 识 县 王 . 
不 舍 改 法 在 App 1e 上 的 字符 


吕 


程式 的 输入 
程式 藉以 : 


SAVE ERROR.NMERSSACG 
一 卫 8S 


与 改 季 DO 8 指令 一 样 ， 示 个 程 
式 亦 可 以 独立 地 使 用 。 把 程式 的 
5 6 0 行 的 <“ < 区 > MENU ” 改 
和 佐 “ 一 卫 > 卫 XITI ”及 把 400 
行 的 CHS$=“ 琴 ” 改 香 C 再 $ 
一 “了 卫 ” 及 同一 行 在 TH 了 BN 指 兮 
后 的 一 段 改 乱 HOME :了 ND 便 
可 以 仿 运 个 程式 独立 使 用 。 


100 CLEAR ， TEXT 
110 于 =。 CHR4 人) 
120 DIM NCS(29) ,CC4(29) ,SC 本 (28) ， 
IN28) 594 人 28) 
130 608U8 740 
140 014 = 。(( CURRENT ERROR NES9A 
6E 》)， 
150X = LEN (14) 7 2 
160 NOIE 
170 PRINT ThB( 20 - Di 
180 FOR TI = 0 T0 39: PRINT "- 叶 : 
NEXT 1 
1190 :PRINT 
1200 FOR LI = 1 TD 14 
:210 IF I《16THEN HThB 5 
220 IF IN(I) 》0 THEWM INVERSE 
,230 PRIMT CC 人 1) 
240 NORNAL 
250 NEJT 1 
260 .PRINT 
270 FOR I = 0 T0 39， PRINT "1 
NEXT 
260 WTAB 4 
290 FRI =1T014 
300 IFI410THEN HTAS 2 
310 PRINT I9)， 
320 NEXT 1 
330 PRINT 
340 PRINT 
350 PRINT "S= STANDARD% HTAB 2 
0: PRINT "FREE CHRS = *FC 
360 PRINT "Ni》 KEMU HTAB 20; 
PRINT SR》 REPLACE。 
370 VTAB 23; HTAB 10，[CALL - 5 
8， INPUT SELECTION =》 人 


更 

改 
D 
0 
S 
卫 
了 
及 
0 
B. 
训 
县 
程 
式 





3860 CH = WAL (CH4) 
390 0NERR 60T0 1410 
400 IF CH 多 = “NTHEN PRINT 0 


RUN D0S.DESI6NERs 

410 POKE 216,0 

420 IF CH = "R THEN 850 

430 JIF [CH = "3 THEN 846 

440 IF CH LORCH 》 414 THEN VTAB 
23; [CALL - 1052: CALL -= 8 
8: 60T0 370 

450 N14 = 20000000001111111111222 
222222234;N24 = 212345478901 
2345478901234567890， 

460 NO 人 E 

470 04$ = “《( 009 ERROR IES9ABE 
HANBER > 

460 PRINT ThB( 20 - 四)D1 

490 PRINT ，PRINT 

500.03 = FREE CHR 本 =》 

5l0 FOR 1 =0T039，PRINT “下 
NEXT 1 

520 PRINT 

530 INVERSE 

540 HTAB 10:， PRINT N1$ 

550 HTAB 10:，PRINT N2 

560 NORNAL 

570 VThAB 22， INVERSE ，HTAB 5，PRINT 
(STANDARD ERROR MESSA6E 》 
> DRNAL 

580 PRINMT ThA8( 20 - { LEN (SC 和 
CH)) 7/ 2))SC$(CH) 

590 NORNAL 和 

600 VThAB 8;， HTAB 3 PRINT OLD = 
》 50CC4(CH) 

6l0 PRINT ，VTAB 9， HTAB (10 + LEN 
(CC 人 (CH))) INMVERSE ，PRINT 
AKC NORNAL 


420 VThB 9;， HThB 10， FOR I = 1 T0 


30:， PRINT "-" :NEXT 1 
630 TAB 10: CALL - 868: HTAB 《 
t0t+ LEN (CCS(CH))) + FC 全 
LEN (CCytCH)) + (FE Y 10) 》 
39 THEN RNTAB 359 


6440 WTAB 10: INVERSE PRINT "《。 
NORNAL 
650 VTAB 10，HTAB 3 INPUT “NEN 
=》 "NECS{CH) 
400 IF NCS(CH) = THEN 150 
670 IF LEN (NICH))《 2 THEN PRINT 
:PRINT YNEW TEXT MUST BE AT 
LEAST 2 CHARACTERS" CALL -~ 
1052: FOR I = 1 T0 2000: NEXT 
1 VTAB 12， CALL - 868， 6070. 
430 
680 IF LEN (NCS{EH)) 》 LEN 《CC 
多 CH)) + FC, THEN PRINT ，PRINT 
“人 攻 SSABE NUST BE = 人 “LEN 《 
CCH) ) + FC”CHARACTERSY CALL 
- 1052 FOR 1 = 1 T0 2000:， EXT 
I:， VTAB 12; CALL - 8668: 60T0 
450 
690 IF LEN 《NC 和 CH 》30 THEN 
PRINT PRINT “NAXIHUN HESS 
ASBE LENGTH SO CHARACTERSY SS 和 LL 
- 1052: FOR I = 1 T0 2000，NEXT 
1 HOME ， CRLL - 8b8:， 6070 
480 
700 IF LEN 《CCS(CH)) 》 LEN 《{NC 
SCHI) THEN FC = PFC TY 《EN 
《CC 和 (CH -LEN (NMNC(CH) )) 
1I0 720 
710FCsFC+Y 《LEN (NMCSCH) ) . ~ [LEN 
《CC 人 CH 
720 [CCH) = NE (CH) STM(CH) = 
730 HOME ;680T0 150 
740 ,FOR Ts 1 TO 14: READ SC$(I) 
NEITI 
750 FOR LI = 1 T014:INI) = 0， NEXT 
了 人 
7 Ialfas0 
770 FOR SA = 43380 T0 43582 
780 和 = CHRS (PEEK (SAI) 
790 [CStI) = CCS(T) + 他 


800 IF .ASC 4) >》128 THEN TI = 
I++1! 

810 JIF ASC (4) 
cc+l 

820 NEXT SA 

830 RETURN 

840 RESTORE FOR I = 1 T0 1414， READ 
CI)IN = 0 NEXT IFC = 
0:; 60T0 150 

850 VThAB 22: HTAB 20: FLASH ， PRINT 

-REPLACEIN6*，NORNAL 
860 FOR TI = 1 T0 1 
870 FORJet TO LEN (CC 人)) - 


= 0 THE FC = F 


880 《8s = [CS 和 + MD (CC(T) 1 


} 
890 全 EXT 
00 X= ASC 《 RI6HT 针 《CC 和) 1)) 


910 IF X 》828 THEN 930 


920 XXX+t26 


930 [3 于 = 9 + HR 本 【站 

940 NEXT 1 

950 IF 上 EN (CSY) 《 202 THEN [3 
sa CS + CHR 10 60T0 950 


960 FOR IT = 1 TD0 202 
970 POKE 43379 + T，RNSC 《 卫 呆 1 
[CS 和 ID) 

980 NEMT 1 

990 Xes3 

1000 FOR Is1T014 

1010 XN = XXX t LEN 《CC 人 人) 

1020 POKE 43585 + 了 XXS NEXT 】 

1030 POKE 43593,0: POKE 43584,3; 
” POKE 43584，PEEK (43595) 

1040 [ 攻 = oa = 0 


1050 VTAB 22: (CALL - 868: PRINT 


: INPUT "SAVE CHAN6ES AS AT 
EXT FILE 《YA 有 => 9 有 


1060 IF LEFT 《AN$ 1) = "Ya THBEN 
60845 1090 
1070 VTAB 23! CALL - 868，ITNVERSE 
:PRINT "PLEASE，"y NORNAL ， 
PRINT ， STAND BY CLEARING 计 
EMORY 。 
1080 60T0 100 
1090 HOWE ;， VTAB 3 PRINT (CR 
EATE 人 CONHAND CHANGE TEXT F 
TILE ?9 
4100 PRINMT :FOR ] = 人 T0. 139 PRINT 
“NEXT 工 
1110 VTR 10， TINPUT *ENTER FILE 
NANE =》v;NA4， CALL  - 958 
j120 IF NA = ww THEN CALL - 工 
0528 PRINT "ILLE6 外 FILE NAH 
9 60T0 1110 
1130 IF LEN (NA) 》30 0R AS 
( LEFT (MA 《65 DR ASC 
( LEFT 和 《NAS 1 》90 THEN CALL 
- 1052，PRINT *ILLE6AL FILE 
NANE !5， 60T70 1140 
1140 VTAB 12，INPUT *ENTER START 
IN6 LINE 外 =》 38SL4 CALL - 
958 
1150 8L = VAL (SL4) 
1140 IF 引 L 《1oR8Ly》 83999 THEN 
CALL -~ 1052;， PRINT "TILLE6A 
LLIHNE NUNHBER :60T0 1440 
1170 7T 和 名 10， CALL -~ 956; INVERSE 
PRINT "CURRENT PARANETERS 
， 1: NORNAL 
1180 PRINT ; PRINT “TEXT FILE 了 
ME =》" MAS PRINT ，PRINT 、 
STARTING LINE NUNBER =》 "3SL 


1190 PRIMT ;INPUT "VERIFY P 和 AH 
FTERS (YA = 和 个 

1200 下 下 EFT 他 《 >》 THEN 
1090 


1210 PRINT 于; NON [TD 
1220 PRINT 00OPENSNA 
1230 PRINT 04;2DELETESNR 
1240 PRINT 0 和; OPEN2NAS 


玫 


1250 PRINT. 0 WRITENA 和 
1260 FOR 3 有 = 43380 T0 43581 


1270C=C+l 

t280 IFC=!0OTHENC= AI 

1290 IF CE 》 人 THEN 1330 

1300 PRINT 

1310 PRINT SL; 

1320 8L = 8 + 1 . 

1330 PRINT 。POKE SA， “PEEK 
0 

1340 NEXT 38 


1350 PRINT 


1360 PRINT 0 和 ;CLOSE2NA 
1370 PRINT 04; NOMONC ,TO WTAB 
FEEK (37); CALL，- 848 
1380 “RETURN 
1390 Th LAMSUABE NOT_AYAILABLE 
,RhAN6E ERROR ,WRITE PROTECTED 
,END IF 0hTAFILE NOT FOUND， 
VOLUNE MISNMATCH ,EL70 ERROR 
1400 DATA DISK FULL FILE LOCKED ， 
SYNTAX ERROR,NO BUFFERS AVAI 
LABLE ,FILE TYPE IISHATCH,PRO 
6GRAM TO0 LARSE ,NOT DIRECT p0 
HAND 
1410 IF PEEK (222) = 《 THEN HE 
:; VThB 12，PRINT "INMSERT 008 
,DESIGNER DISK 人 0 PRESS 有 人 
EYe 畏 IT “- 16394,128;， POKE 
- 16348,0: 60T0 00 
[420 HOME ，VTAB 12; PRINT ERRO 
R 和 ;PEEK (222) 和 9 IN LINE ， 
; PEEK (218) + PEEK (219) 


256 
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Dos 3 3 设计 软件 


第 3 顶 副 程式 重 必 DISK onunEx 





-TI) 

它 的 功能 只 是 把 在 用 CATA 
一 工 0G 时 显示 档案 的 DISBEXK . 
VOLUME 导 息 加 以 更 改 。 文 字 





过 个 副 程 式 在 过 入 后 请 以 : 最 长 是 L 2 个 字符 。 新 的 讨 息 可 
SAVB DISK.VOLUNME 以 用 一 般 。 反 白 或 办 动 三 秆 形式 

储 起 来 。 显示 出 来 。 
如 果 贾 把 它 层 成 物 立 使 用 殉 
更 改 DISK VOLUMBE 文 本 ( 第 件 。 可 以 把 第 5 ?7 0 行 改 篇 再 一 


5 项 : DISK VOLUMB THX OME: END 便 可 。 


更 改 DISK VOLUMB 文本 程 陈 


100 CLEAR ，RESTORE ;TENT ，HONME 


110 TB = 12:04 = CHRS 14) 
120 Ni 和 = “000000000111"3N24 = "1 
23456789012， 
130 0 和 = 5(( CATALO6 DJSK VOLUWME 
PATCHER >》， 
0 PRINT -TAB( 20 - 《 LEN (401 
121)01430] 和 = 
150 PRINT 
160 FOR IT = 0 T0 39;， PRINT "1 
NEXT 1 
170 POKE 343;， PRINT 
180 HOME ;，POKE 34)0 
190 VYTAB 6 FALL -958: 
200 Di = "ENTER 人 ESSh6Es 
210 HTAB 13，VTAB 6: PRINT 914，VTAB 
20; FOR > 0 70 39; PRINT ， 
4 NEXT J VTAB 22， PRJNT 
"FREE BYTES = "T3 
220 VTAB 8 INVERSE ;HTRB 13; PRINT 
M14:， VTAB 9 HTAB 13，PRINT 
M2$; NORNAL 
230 VThB 108 CALL - 868: HTAB 1 


! 


< 


240 PRINT ， ==)"; ;INPUT 
3 

250 IF [6 = we THEN C64 = "DISK 
VOLUME ， 


260 TB = TB - LEN (3) 

270 IF LEN《C9$) > 12 TYHEN PRINT 
:PRINT “ 拉 有 XUN ESSAGE LEN 
GTH 12 CHARALCTERS :CRLL ~ 
10524 FOR Js 1 TO 2000， 此 人 T 
JiCS = ""T8 = 12: 60T0 190 


280 VTAB 6 CALL - 959， PRINT 。 
YOUR NEW 了 ESSA6E 

290 WTAB 10: PRINT [CS 

300 PRINT ，PRINT "TOTAL BYTES 
SED = "12 -TB 

310 VTHNB 20: FOR I = 0 T0 3 PRINT 
"和 "NEXT ] 

320 PRINT ， INPUT "ESSAGE I9 [0 
RRECT 《YAN =》 AN 

330 IF LEFT 各 《RN 全 人 《 》2Y THEN 
TB = 12; 6070 1940 

340 VThNB 22: [ALL -958 FRINT 
“MESSA6E DISPLAYED. :INPUT 
"<N》 NORNAL 《F》FLASH 《I》 
INVERSE = 和 2 

330 IF 修 = "NTHENY = 128 60T0 
390 

360 下 由 = "FTHN = 0 60T0 
399 

370 IF 由 = THENXY = -~ 全， 6070 
390 

380 60T0 340 

390 VTAB 22;， CALL -~ 958;， FLASH ， 
: PRINT “REPLACING"。 NORNMAL 


400 PDKE 44405，LEN 《CS ~ 1 
410 POKE 44461;47: POKE 44482， 17 


4 

420 FOR ! = LEN (CS4) T0 1 STEP 

-1 

430 赂 = 由 + (MD 和 《CS 和 Ti) 

440 NEMT 1 

450 FIR I=1T0 LEN (人 

460 BV = ASC (MD 和 《了 1) 

470 IF BV《27AND XI = 128 THEN 
510 

480 If BV《 27 AN X = 0 THEN By 
= 中 + 128 

490 IF BV 《27 AN = -64THEN 

By + 192 


500 
510 
520 
530 
540 
990 
5 的 


9580 


590 


600 


610 


620 


630- 


IFB《b4THENBV = ByV+ 6 
POKE 45998 + ,By + 

NEXT 1 

VT6B 22; CALL - 69， PRINT 
;INPUT "SAVE CHAN6ES AS AT 
EXT FILE (YA = 人 


了 F LEFTS (全 1) = Ye THEN 


605U8 580 

VTAB 22 ALL - 958，PRINT 
“T 有 E 了 EED TS DONE 了 

0NERR 60T0 890 - 


PRINT 9 和 ?RUN D05,0ESISNER" 


Ho 人 E ，VTAB 3 PRINT ”< CRE 
ATE 有 COM 人 AD CHANGE TEXT FI 

LE 7 

PRINT ;， FOR TI = 0 T0 39， PRINT . 
过 1 39 


TAB 10: INPUT “ENTER_ FILE AN 


ANE =y 9NAf: CALL - 958 

IF Wh = 和 THEN CALL - 续 

52: PRINT sSLLESAL FILE NANE 
1 60T0 600 

IF LEN (NS) 》30 0R ASC 1 
LEFT# (NA 《 65 0R ASC 


(LEFT$ 《NA 1)) 》90 THEN CALL 


- 1052: PRINT ”了 ILLE6AL 了 IL 
E NAIE ， 60T0 600 
VYThAB 12:， INPUT "ENTER START1 
N6 LINE 条 =》 "SLS (CALL - 
958 


0 和 8L = WAL (4 


01 


060 


070 


if SL《LORSL >》63999 THEN 
CALL -~ 10S2: PRINT "TILLE6A 
L LINE NNINMBER 1 60T0 630 
VTAB 1 CALL - 956， TINVERSE 
:PRINT “CURRENT RARANMETERS 
“人 RN 人 AL 
PRINT ，PRINT "TEXT FILE NAX 
E =》 "NA PRINT PRINT "9 
TARTING LINE NUMBER => "; 9SL 


680 


690 


700 
710 
720 
730 
740 
750 


PRINT ， [INPUT "STARTING LIME 
PARANETERS (YN) =》 呈 月 

IF LEFTS (条 ,上 《ywY THEN 
560 

PRINT 0 和 ;NON CT 0 

PRINT ya0PENoNA 

PRINT 0 和 ;DELETESNA 

PRINT 0 和 ;0PENeNAS 

PRINT 0 和 ;机 RITESN 人 和 

FOR 8h = 45998 T0 45998 + LEN 
( 休 ) 


7a0L=Ctl 


770 
780 
790 
600 


IFC=I0THENCz=1 
IFC《 》1 THEN 820 


PRINT 


PRINT 纪 ; 


81I0SL=SL+1 


620 


830 
840 


850 
860 
870 


880 
890 


700 


PRNT “PORKE “SA ”PEEK 
-90 了、 

NEXT 6 

PRINT *PDKE 二 4423 PEEK 《 
4463)92353"POKE 44481， 7 PEEK 
(44481) 3"POKE 44482," PEEK 
(44482 1) 
PRINT 

FRINJ D 本 "CLOSE NA 
PRINT 0 二 "NOMONC ,02 ，VTAB PEEK 
{37)， CALL -~ 868 
RETURN 

IF PEEK (222) = 6 THEN HOME 

; VTAB 12: PRINT INSERT 00S 
,DESISNER DTSK AND PRESS 有 基 
E 站 有 IT - 16384,128，POKE 

- 16368403 60T0 570 

HOME ，VTAB 12，PRINT %ERROR 

和 PEEXK 《222) LINE 
PEEK (218) + PEEK (219) 


256 


/ RAM 细 


假如 你 是 用 闽 果 贡 e 或 Ice 
夫 吉 行 Er oDOS 的 新 。 你 便 可 
使 用 其 中 的 6 4 玉 作 草 子 磁 碟 一 
一 ARA，。 不 过世 果 公司 好 像 
对 肖 项 功能 忘 邑 了 。 除 在 “了 AS 
-ICPROGRAMING IN Pro 

DO 8” 一 一 书 内 有 略 有 提 及 人 外。 
苦 他 有 关 的 资料 一 律 欠 奉 。 

加 在 Te 内 搬入 扩展 8 4 行 
让。， 当 起 动 了 ProDoS 人 兵 ， 则 
ProD0S 自动 地 融 立 - 个 名 筷 
了 RAX 的 电 了 于 做 雁 。 过 个 管子 
磁 碟 和 普通 的 磁 克 机 的 功能 是 一 
傈 的 。 只 是 它 疫 有 了 吵吵 的 机 械 
袁 ， 磨 损 。 但 是 它 的 容量 雯 少 及 
其 中 资料 在 党 产 中 日 断 时 会 失去 
商 已 。 

你 可 用 ProDo8gS 的 了 ile 
一 了 工具 程式 去 查 芒 一 下 二 及 一 
AM 磁 碟 的 功能 ， 首 先 在 ProD 
一 08 的 使 用 主屏 蓝 上 渤 摆 使 用 
Filer 功能 。 然 后 用 Vo lu 
一 me 指令。 再 在 下 一 屏幕 上 渤 
用 LIi st VOlume 过 功能 。 则 
在 系 和 统 中 所 有 的 附件 会 一 们 列 出 
来 。 通 时 可 发 晕 一 尺 A 划 磁 碟 是 
假设 在 SILOT 5 上 的 。DRIVB 
2 6 

及 AN 磁 碟 的 容量 是 有 二 
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聊 剑 


2 8“ 格 ”( BLOCK ) * 而 其 中 
只 有 1J2 0 格 可 自由 人 使用。 和正 
常 磁 碟 的 2 7 5 格 相 比 。 及 一 
AN 是 有 比较 小 的 容量 和 不 太 标 
淮 。 故 只 有 在 其 中 存 人 最 多 工 '2 
个 档案 。 

而 站 接 模 式 的 指令 。 如 : 一 


SAVE。LOAD.RUN。DELET 了 


。 TOCK。UNILOCKE。CATALO 
一 G 等 。 均 可 在 RAR 内 工作 
* 和 而 吉 些 指 今 均 可 用 指定 槽 或 分 
支 目 录 的 形式 去 操作 。 例 如 要 执 
行 一 程式 时 。 可 和 链 和 人 : 一 一 
RUNARAMAfilename 
或 大 
RUN filenpame。*。，8S8o5。，D 
乙 

中 然 上 述 二 镍 格式 的 指令 均 
可 有 运行 filename 过 程式 。 但 
第 二 种 格 却 会 改 歼 系统 中 指定 的 
常用 破 碟 权 。 运 样 在 执行 下 一 个 
磁 矶 指 今 蛙 。 便 不 需 再 加 上 槽 口 
及 磁 人 矶 机 号 码 。 

假如 你 要 既 常 使 用 R AM 
磁 碟 内 的 和 资料。， 划 可 用 上 述 指 兮 
去 改 琐 常用 的 磁 奈 机 。 或 是 用 
PRIHEIX ARAM” 演 指令 去 肌 
定 分 支 目 录 的 名 字 。 才 样 便 可 免 
除 每 次 使 用 磁 碟 指令 时 都 加 上 模 
口 及 磁 夸 上 号码。 但 如 ~RA 贡 磁 


碟 的 内 容 只 是 需要 使 用 一 次 或 二 
次 的 茵 。 旭 可 在 档案 各 字 前 加 上 
“ RAT” 的 前 色 名 字 。 壳 柑 
便 不 会 改 技 常用 磁 际 柚 的 资料 了 

ARAM 磁 珍 在 如 定 合 。 可 
用 了 IITER 工具 程式 内 的 FORM 
-AT A VOLUMB 去 擦 除 内 部 
和 资料。 如 果 需 查 的 落 。， 有 R AXM 
过 名 字 更 可 隔 意 更 疏 。 

由 艾 R ANM 磁 碟 的 容量 喜 
少 ( 和 普通 磁 夸 比较 ) 。 故 /及 
二 AM 了 磁 碟 是 不 可 用 COPY A 
VOLUM 了 了 指 今 把 资料 拷 具 的 ， 
大 量 的 资料 塌 移 只 可 用 COPY 
了 工 工 也 指 今 去 损 作 。 

这 指 售 有 可 使 用 的 二 个 通用 
党 得 的 便利 。 这 通用 字符 可 代替 
一 些 需 要 键入 的 资料 。 例 如 要 从 
了 及 A 开 人 磁 碟 找 具 资料 至 另 一 已 
格式 化 的 磁 片 上 : 一 一 
COPY Pathnamne (一 RAMN 
0 
IO Pathname ( mew vo 
一 1umne name 一 =) 
或 是 从 磁 斤 上 拷 具 资料 到 R 一 
AM 磁 奉 内 : 一 一 
COPY Pathname (you 
一 IT volumne name 一 ?) 
To Pathname( ~RAM? 

多 其 用 等 号 或 是 问 号 均 可 代 
蔡 了 档 名 。 了 随便 那个 符号 均 可 在 
两 个 埋 移 袖 料 方向 下 使 用 。C 一 
OPY' 程序 会 从 主 磁 碟 上 蔬 取 壬 


2| 


料 。 在 拷 具 每 一 档案 睹 。- 它 会 把 
剖 料 显示 在 莹 幕 上 。 你 是 无 需 键 
入 楼 名 的 ; 而 使 用 等 号 和 问号 的 
分 别 是 在 於 等 号 合 不 断 地 自行 操 
作 ， 而 问号 旭 每 一 档案 均 葛 问 是 
否 鞭 正 页 热 行 拱 贝 。 使 用 通用 字 


符 可 增加 修 茂 磁 碟 上 档案 的 速度 


由 基 RAX 磁 检 上 东 不 可 
存放 太 多 的 资料 。 故 此 其 上 只 有 
存放 上 &4 个 档 名 。 如 要 驹 行 把 第 
1 5 个 楼 案 拷 具 进 去 。 而 其 中 二 
R AX 磁 碟 内 适 有 空间 。 则 可用、 
分 支 目 俏 的 方式 去 开 雇 另 一 个 目 
录 。 然 众 才 把 资料 放 进 去 。 

正常 情形 下 。R AX 硫 碟 
是 示 会 和 其 他 程式 或 系 入 中 其 他 
的 资料 互相 于 所。 包括 使 用 卫 e 
或 贡 c 上 的 80 行 题 示 。 或 是 融 
解 像 图 形 幕 的 功能 。 而 其 中 所 存 
的 档案 资料 和 使 用 其 他 的 资料 是 
一 栎 的， 不 会 有 任何 丕 同 的 特性 
式 反 应 。 

了 有 ANM 磁 礁 在 设立 后。 如 
再 次 载 人 一 双重 解 像 的 图 案 蛙 。 
因 其 估 用 的 位 址 相同 。 故 在 R 
一 人 内 的 资料 会 有 部 份 失 去 。 
以 上 只 是 ~RAE 磁 碟 的 一 些 使 
用 资料 。 实 际 在 R AM 内 可 能 
提供 的 效 会 ， 还 要 自行 发 据 才 可 
见 到 ， 丰 过 最 简单 的 一 点 。 便 是 
它 完全 是 免费 的 ! 


七 狂 反 绰 


一 一 高 解 像 轿 案 工 具 程式 之 三 








HGR2 页 内 ，。 再 在 HGR 上 作 
显示 ， 图 改 的 显示 形式 融 像 略 示 
一 样 ， 由 一 幅 平 局 的 态 逐 新 扩大 
成 一 幅 元 整 的 加 案 。 
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程式 以 入 及 使 用 


程式 分 您 BASIC 及 机 械 医 
言 两 个 部 份 。BASIC 部 份 可 以 
用 过 

SAV 了 BE PIC.SHO 克 


而 机 械 语 部 份 刚 可 以 用 : 使 用 程式 补 须 热 行 BASIC 
BSAVB BOT。AS$6000 ， 它 售 自 动 载 入 机 械 萎 部 份 之 程 
入 工 ?5AO0 式 。 

把 它们 储 在 磁 碟 上 。 






有 1 ASTC 生 人) 


忆 了 RE ; INRPUT SENTER 1 TE RECT Mt ENLL 2 
RN 人 0 。 
0 0 = CR (HGR 0 、、 和 
9 PRIMT 0 8400 0 1400; Role 0 
和 RN 的 "8L0ND FTitoo 10 FT=0T RN 0 
本 PKE 1069 RE 4 二 8 》 127 Te 
RE 30410 有 了 RE 
2 2 0 人 8 、 
ee ms DRE 232， 3 EALE 2450s okE 
人 -1300， 和 RETURN 






压 帮 反弹 程式 ( 机 械 语 言 部 份 ) 4024- 20 人 4 JSR 404 


6000- 有 0 8 4 60029- 8B1 RN LO 1 后 )Y 
6002- 59 0 cp 村 | 4023- 9 FC STA (二 Ci MY 
6004- 00 0 RNE .46009 6020- 89 DEY 

-6000- 440 yp 8 0 6602- (00FF CPY ”人 杂 FF 
6009- 《9 02 cp 2 -63 00F7 BNE 和 029 
4008- 00 03 BINE St 63- 5689 DEC 图 ? 
6000D- 4C5E .60 Jp 5 .03 及 及 LDA， $F9? 
hl0- 40026 JI 302 0 6430- 05FF CMP 和 针 F 
6013- 9 00 LI 村 0 6038- 00.6 BNE 和 0024 
6015- “85 FF 3 SF 1403- 多 放 I 拓 打 F 
6017- 届 必 LA FF ee 40C- 全 F LA 持 F 
4019- ” 侈 必 sf .FE kt 0 上 CNP 。 针 E 
601B- Ab FF LI SF 6040- D009 BNE  $6018 
6010D- 205080 JSR 400 6042- 00 RTS 

6020- 和 抵 FE IN SF 6- 16F9 LDX 。 杀 ? 
4022- 65 89 STN 5 604- 了 0 的 48 600 
4024- 人 27 LIY 梓 7 0 609- 65F Th 轩 [ 


<C3 


记忆 





4044- 《80j81 BCS 45FC ER 4007- 60 8 人 97 人 4088 

604C- 6 85 ADC (和 85 和 人 bt0AA- ABC LA 4608C 

604E- Pi 了 SC 和 00X hh- 扣 了 E 的 和 5 408E 

6051- [0 的 [PY 垦 60 0080- 的 Th 06C 
4053- 18 [LE 2 64083- (09 00 CHP 。 朱 0 7 这 上身 亿 
6054- 85 FA STA 4 ee 64095- 9000 BCC 46077 父 
46054- 了 8 81 6 LN 4 2 64087- Ch DEX 和 
6059- 的 20 hDC 村 20 ae 088- 由 BPL 4060 

4058- 的 F8 STA 和 针 8 408hN- 7 一 = 之 

5050- 1 FTS 4098- 0 05j00 砚 人 

605E- 。h2 盾 LIX -条 5 40C0- 0000000000 100 00 

4000- 和 妥 00 LA 条 00 60Cc-90806080608080980 Le 人 《cc 
6062- 上 86 STR 540 4000- 0000000000000000 -全 
0065- 8 Ri 3STN 90 409- 86080608080 808080. 会 :> ， 
6068- 有 此 BF 的 SST 4 么 08F ee 60E0-0000000000000000 于 中 
606- 了 和 好 LA 4 ee 6b0E9-808608080808080 60 

604E- 80 80 40 9TN 46080 RS 60F0- 00 00 00 00 00 00 00 00 

67!- B426  Ln 424 40Ft-808080806808080 9 

6 8 了 BE SSTN SEE ee h0-2828282828282828 

8 CBN 人 LUY 30 408- hh868MA 有 得 和 

5 00 的 LA 400Y 二 6 28282862828282828 

8078、 85 FA SN SF ee hhhh 有 有 hh 介 朋 


af- 386 LU 5 6420-28-282602826262828 
6082- tr cLC 64286-hA6h8h Ah 68H9n8h 
6083- 好 20 AD 4l30- 28 28 28 28 28 28 28 28 
6085- ”85 FI8 8Tf 6138- 由 M 角 朋 有 有 租用 
6087- .了 了 0 LOY 6140- 50 50 50 50 50 50 50 50 
608A- BC0 的 LIN tl48- 00 0D0 00 00 00 00 00 00 
4080- 的 FC 8Th 6150- 50 50 50 50 50 50 50 50 
608F- ”8 816h 0 6158- 00 00 D0 D0 00 D0 MX 00 
6092- 全 FI 3Th hh0- 50 50 50 50 50 50 50 50 
6094- 、A0 27 L0Y 61468- 00.00 RM 00 00 00 MX 0 
6096- 8BL RN LN 4L70- 50 50 50 50 50 50 50 50 
6098- 9 FC STR (SFC) MY 478- 00 00 00 00 00 00 00 00 
409h- 时 DEY 41l80- 00 20 24 28 2C 30 34 38 
6098- 10 f9 BPL 抒 096 4198- 3C 20 24 28 2C 30 34 38 
4090- EE 外 80 INC 4608F 4490- 3 21 25 29 20 31 35 39 





.A0AO- 18 [LC 6t98- 3 21 25 29 20 31 35.39 
b0AI- 人 BB6 LI 088 se bo- 3222022E32303A 
608- 的 了 6 RNC 3 0- 了 王 2220282E3233 
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林 旬 本 
| 网 了 网 上 贿 j 4 痕 j 和 
IT ~ 

汪 





站 ls 





[TH 放 


| 人 re 一 下 


fa 





[ns 村 
< 






2 0 2 ， 
站 了 生 是 后 人 
本 







DID 


1 和 和 人 4 
ET1 (人 
1.14..40.8 iT .1 
Sr 


时 
一 0 


和 
1 


本 < 人 

人 

1 14 
站 ws 
0 

2 
jel 
有 








人 和 1 


xD 
拟 了 
na 













一 


4 


和 


之 站 
33 
候 





帮 RREDIYS 牙 有 人 
1 
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4iB0- 汇 23 27 28 2F.33 37 38 
ol88- F 23 27 2B8 2F 33 37 38 
blC0- 站 20 24 28 2 30 34 38 
6LCb- SC 20 24 28 20 30 34 38 
61D0- 3 21 25 29 20 31 35 39 
tl1D8- 3 21 25 29 20 31 35 39 
olE0- 30222602h2E32363h 
6lE6- 汪 22 20 2 2E 32 36 3 
efo- 丈 2327282F3337 3 


lfe- 革 232728 和 3337338 


6200- 引 20 24282C303438 


208- 3 2024282C303438' 


6210- 3 21 25 29 20 31 35 39 
th218- 30 21 25 29 20 31 35 39 
6220- 3 22 26 2 2E 32 36 3 
6228- 3 22 24 2 2E 32 26 3 
4230- 七 23 27 28 2F 33 37 38 
4239- 引 23 27 28 2F 33 37 38 
46240- 3 了 F 2001 01 01 01 01 01 
6248- 0 01 01 01 0 01 01 0 
6250- 0 01 01 01 0 01 0 0 
4258- 0 01 01 01 01 01 01 01 
6260- 0 01 0 0 001 0 0 
6268- 01 01 0 01 0 01 01 01 
6270- 01 01 02 02 02 02 02 02 
4278- 02 02 02 02 02 02.02 02 
6280- 02 02 03 站 03 03 03 .05 
6288- 03_ 05 04 04 04. .04 04 05 
4290- 0 .05 0 06.04 07 08 08 
6298- 09 0 0 0 10 13 18 20 
42h0- 30 40 00 02 05 08 08 0E 
42h6- 11 14 17 1A 10 21 24 28 
6280- 2B 2F 33 37 38 3F 43 47 
4288- 4C 50 55 5h 5F 644 69 4 
62C0- 74 78 80 8 8C 92 99 身 
42C8- M7 AF 8 BE [7 CF 08 E! 


.6200- EB f5 00 0 16 22 2E 38 


42D8- 493 57 060 76 86 98 AhA BE 
42E0- 02 5 00 189 3 4 如 有 E 
bxE8- 81 D7 00 20 和 920C 0 


tb2F0- 55 后 00 4 0 
4h2F8- 99 hh 00 96 0 
00 00 


6300- 
4302- 
6304- 
6307- 
4309- 
8630C- 
630F- 
4312- 
4315- 
60314- 
317- 
6319- 
4318- 
4311- 
46520- 
6322- 


63525- 、 


63528- 
6032- 
6320- 
432E- 
0330-~ 
0333- 
63535- 
6338- 
6339- 
6338- 
40330- 
633F- 
6342- 
6544~ 
63547- 


6349- 


6343- 
6340- 
634- 
4350- 
4352- 


AN9 00 


90 90 6 


h2 及 


20 263 


20 61 03 
EE 90 03 
引 90 05 


89 [0 的 
65 FF 
89 81 41 
65 有 
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BL FA 
?1 FL 


10 F9 
E FF 


0 
3 


LDA 


Th 


LI 
JSR 


了 SR 
LNC 


了 抽 
DEL 
DEI 
LPI 
8 有 E 


七 姑 


JS5R 
LIA 
8TA 
JIMP 
LIh 
Si 
5T) 
L)Y 
LDh 
5T 


”L0A 


kb 


ADC- 


STA 
LIY 


坊 Dh 


Th 


LA 


3TA 
LIY 
LA 
Th 
)51Y 


BRL 


] 基 


2 1 
3 0 


0 BA 
(0 的 


#00 

委 390 
# 生 

#6328 
有 3 
4439D 
48390 


娃 FF 
4309 
时 00 
5328 
妹 BF 
391 
46361 
400 


FF 


4F9 
引 FF 


600Y 


秆 


和 0181，Y 


村 20 
针 ] 

条 9 
$60C0Y 
打 


未 27 


人 34 
打 FF 


418LY 
轩 ) 


34 


03550- 
6558- 
0635- 
655C- 
03 耻 - 
6360- 
63561- 
0503- 


0 的- 


6368- 
50h- 
56- 
妈 t- 


-6371- 


(fyY 
(4FY 
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63714- 
6375- 
6377- 
6379- 
6378- 
由 -~ 
6580- 
6585- 
05365- 
4567- 
0589- 


4388- 


635BC- 
438E- 
6390- 
6392- 
5394- 
4396- 
6398- 
439h- 
635[- 
6391- 
639E- 
639F- 


E6 FF 
E 有 
E4 f9 


] 几 
INL 
IN 
LDY 
CRPY 
8CL 
RTS 


STN 
LA 
STh 
LDY 
LN 


3TA 


LI 


cLE 
hDC 。 


ST 
LI 
LI 
STh 
LI 
5 计 
LIY 
LA 
STA 
EY 
BpL 
IE 
DEC 
DEC 


LDY 
cpy 


BCL 
RTS 
BRK 
SRK 
BRK 


外 FF 
儿 9 
二?9 
针 ? 
位 人 0 
$63 外 


和 中 
4FE 
46391 
4 

外 FE 
40C0, 
4FN 
46181, 


寻 20 
4 

二 9 
$60C0 
村 
46181 
4F0 

打 27 
(全 和，Y 
(和 FC),Y 


$6587 
儿 E 
攻 E 
秆 9? 
媳 ? 
针 ? 
条 全 FE 
和 36h 


低 


把 小 楷 释 成 大 楷 字 母 





过 是 一 个 简短 的 至 换 程式 。 写 


把 在 Applesoft BASIC 内 呈 
一 AIA、EHRINT 及 及 五 M 等 指 分 
内 使 用 的 字母 。， 由 小 楷 玩 成 大 楷 ，。 
其 中 包括 : 

工 王 工 AU 有 $=“apple 


USser monthy ” 
及 


DATA apples*User， 
monthly 
等 。 
程式 是 用 机 械 基 吉 吉 成 的 ， 可 
以 在 DOSS。 3 及 ProDOS 之 
下 使 用 ,程式 的 角 存 可 以 用 指令 : 
BSAUBE TI0.UP,A300， 
工 W 91 





0500- 
03502- 


03503- 


0305- 


0307- 
0309- 


0308- 
030E- 
0 中 - 
0512- 
0 
0314- 
0518- 
0311- 
031- 
031E- 
0520- 
0322- 
0324- 
0327- 
0328- 
032f- 
0325- 
0320- 
0330- 
0331- 
0333- 
0335- 
0336- 
0337- 
033- 
0338- 
0330- 


LS 


全 P 


RTS 
LI 
CLC 


7 


革 E 


儿 E 
468 

4FF 

村 0 
#0338 
(村 E 
40327 
竺 B2 
#0345 
科 83 
40349 
竺 22 
4035[ 


二 
3030E 


( 丰 E) 


40330 和 


#0338 
( 夺 E 
033 
40338 


轩 F 


4FF 和 
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03562- 
0364- 
全 64- 
0368- 
036b0- 
0360- 
03710- 
0373- 
035 六 - 
0577- 
0579- 
0378- 
057- 
05 站 -~ 
0360- 


F 08 

20 73 全 
4 5 03 
4 15 05 
[59 40 

90 09- 
69 80 

80 05 

3 

上 9 20 
家 

6 


和 
和 0384 
外 F 

SFE 
40315 
4FE 
03 生 
#FF 
{#FE) Y 
40359 
40373 
$0349 
$0327 
#FE 
40362 
$FF 
(#FE) Y 
#0338 
#22 
40370 
40373 
3035[ 
4031E 
460 


有 380 


站 8 
40380 


-20 


( 括 E) 


号 





作 集 一 个 志 胸 用 户 ， 自 然 布 
望 在 操作 电 胶 时 可 以 更 加 方便 及 
快捷 ， 过 里 要 介 胡 的 是 - 个 改 眼 
过 的 Avtostart RONM 程式 
*. 它 的 特点 是 更 政 了 部 份 的 世 一 
oniton 功能 ， 删 去 一 些 不 常 
用 的 及 加 上 一 些 新 的 功能 。 

程式 通用 於 Apple 芽 十 上 
如果 用 户 有 PROM WRIT 卫 
一 及 的 可 以 自行 烧 录 一 枝 新 的 姐 
一 0O 贡 。 吏 者 有 RAM CARD 
的 用 户 可 以 把 它 放 在 RAM C 
一 ARD 上 使 用 艾 可 .。 


的 柱头 和 


Autostart ROM 估 原 
地 址 了 8O0O0 至 了 有 了 和 但 是 
过 是 R OXM 的 区 域 。 无 法 作出 任 
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包 


co 贸 忆 Autostart 





ROM 





何 修改 。 记 以 首先 便 是 把 它 抄 亚 
RAIN 不 ， 再 作 修改 。 其 中 完全 

的 步 如 下 : 

1. 按 CALI-151 进 入 Monit 
一 Or 状 能 o 

2. 按 指 今 : 
2800<< 了 有 也 800.… 了 了 及 也 
玉 MXM 
把 Autostart' ROM 抄 至 
2800~2 了 REF 不。 
3. 小 心 链 入 以 下 数据 : 


2A6F- 四 有 
2470- 78 Fh 9 87.07 作 02 h0 
2h78- 5F CE 的 

2809- 38 49 C8 29 IF F0 50 
2310- 20 2C FC 20 0C FI 4 09 
2818- F 

2h66- FB 20 93 FE 20 89 FE 民 
2h70- 78 Ph 的 87 97 和 F 02 有 
2h78- F E 的 AD FF CF 20 10 
2808- 3 38 4 CB 29 IF F0 50 
2810- 20 25 FC 20 00 FD 4C 09 
2818- FB 51 08 09 00 03 AD 70 


2Z860- 4 58 FF 人 0002 有 E 0 


2B68- 29 8C 02 29 力 了 FC AD 
2890- 03 2 10 CO 4C FID FB hO 


2898- 00 89 02 02 5D 00 02 F0 
28A0- 04 0D1 SI 13 58 CC 0 
2Z8A8- 02 90 EE 20 80 FE 20 1 人 
28B0- FF 人 2 00 20 [6 FE F0 05 
2B8B8- 20 8A FC 90 DA 4C 2F FB 
2BC0- th 4 4 297 035 09 04 85 
2028- 20 85 28 60 069 FI 90 5 
2030- FI DE 的 FI 90 BE F0 04 
2438- 69 FI 90 2 609 68 60 EN 
2C40- Eh ER AN 24 1 25 49 20 
2Cc8- 的 和 00 0010FB 2 10 
2C00- C0 29 史 09 DSS F0 07 59 
2408- CD 0 20.4C 62 FA 8 
2CE0- 05 29 MI 00 了 8 00 009 
2kt8- 00 20 89 00 01 99 00 21 
2CF0- [6 0 F1 84 3 84 了 84 
2CF8- 42 M9 02 85 0 和 9 09 85 
2000- 中 1M9 228543 2020FE 
2008- 4 59 FF EN 24 8 28 
2010- 人 38 00203FF4C 8 
2018- FE EA 20 FD FE 20 00 


2020- C0 10 58 91 2 84 24 人 


2028~- 和 00 CO02C 10 C0 40 20 


2030- 0C FI 20 09 F8 20 0C FD 


2039- [9 98 f0 ff 060 人 5 52 48 
2040- 有 9 FF 8 32 30 00 02 20 
2048- ED FI 8 85 32 80 00 02 
2050- c9 88 F0 1D 59 98 FO 0 


2058- EO FE 90 0 力 1 FEB 
2078- [9 95 00 02 8 28 4 84 
2060- FI E8 的 88 9 00 02 [7 
2E70- E9 01 0 EF 的 的 0 07 
2fC0- D7 FA 60 ER ERA 4C 8 03 
2EC8- 20 SEE FE 他 0 20 .63 FE 
2E00- 人 00 [0 10 F8 20 10 C0 
2E08- C9 95 FO EC [9 MO F0 B 
2EE0- .09 98 60 19 02 85 22 4 
2EE8- 97 FB Ah0 08 99 72 人 2 


ZEF0O- ED FI 88 10 F7 00 20 00 
2EF8- FE 8 88 D0 80 4 E6 攻 
2F00- 00 16E 4 A5 镍 29 20 
2F08- [5 24 F0 0 8 24 的 于 
2Fl0- 1 260002608648 9 28 
2F189- 8 0 2092F 8 B 
2F20- 儿 653 的 30E9 0085 
2F28- 3 4C 84 FE ERA 9 5 20 
2F00- EF L4 EC A9 88 86 A4 06 
2F06- 95 07 02 05 F0 00 8.95 


.2FE0- A7 C6 99 82 [54 8E EL 3S5 


2fE9- 8 E2 96 人 F 17 17 28 证 
2Ff0- 65 人 C7 E9 85 E9 7 87 
2Ff8- Fr5 05 的 fB 09 FC 4 FA 


4. 负 人 : 


BSAVE NENROM AS26800 儿 4800 


把 它 储 在 磁 夺 上。 


5. 印信 以 下 的 BASIC 程 陈 : 


10 0 = CHR 本 (4) 

20 PRINT 0$*0PEN 了 INSTALL” 
30 PRINT 0 和"WRITE INSTALL” 
40 PRINT "CALL-151 


”50 PRINT“C081 5081 


480 PRINT *D000《D000.FFFFN2 
70 PRINT "BLOAD NEWROH ASF800 
80 PRINT "CC0808 
90 PRINT "3006" 
100 PRINT "HOME 
110 PRINT 04"CLOSE。 


6. 把 它 执 行人 后 ; 它 会 创造 一 个 名 
需 INSTALI 的 卫 XEC 式 文本 
档案 ， 它 会 自动 设 定 W 卫 WR OXM 


在 RAM CARDE 的 。 


< 一 > 区 续 显示 多 行 反 准 歧 程 
式 
<SPACBE> 维和 类 显示 一 行 反 


答 式 的 使 用 按 其 它 键 将 跳出 程式 。 出 现 游 
标 等 待 办 入 下 一 个 指令 。 
还 个 改良 过 的 Autostart 下 样 下 让 本 等 指 合 及 . 
R 0M. 有 以 下 的 功能 : < CTRIE>S 使 没有 了 。 
1. 底 粽 式 游标 显示 4 < 了 SC> 键 功能 的 改动 
把 内 动 的 方块 游标 改 倚 底 入 式 < 卫 S C> 的 IT、J、、 
* 兮 直面 不 致 太 刺 有 眼 ; 另外 在 游标 控制 键 浊 没有 改 先 ， 工 作 
方块 游标 作 回 标 肝 。 如 有 果 是 小 如 鞠 。<< 卫 8C>@ 的 HOMB 
搭 字母 会 得 出 其 它 的 字符 。 但 功能 改 到 < 也 SC> 互 上 ， 另 
底 稼 游标 仍 依 蕾 显示 小 措 字 母 外 又 把 不 常用 的 < 五 8 C>A 
o \“ 了 、C、D、 卫 、 卫 等 不 常 
2. 取 消 自动 删 字 功 能 用 的 功能 删 去 。 
党 轰 入 字符 超 尝 2 5 5 个 字符 5 <RESBT > 新 届 时 
时 。Autostart ROI 会 <RESBET> 功能 有 新 安排 ， 
把 末 后 的 字母 删 去 。 改 良 了 的 按 下 此 链 和 后。 便 会 “ 了 HANG ?” 
系统 。 在 字符 较 入 到 了 第 2 5 机 。 过 时 你 可 以 按 以 下 的 链 : 
4 个 字符 时 ， 游 标 便 会 停 在 那 < > 立 烈 进 入 Monitor 
袁 。 如 果 再 按 其 它 键 便 会 痪 声 < > 把 90 至 $ 8 页 记 惊 移 
s 你 可 以 用 和 蔽 咀 向 左 键 或 所 及 到 $2 0 至 $2 8 页 。， 及 进 人 
一 ETURN> 键 作 输入 及 修改 Monitor 
o 按 其 它 键 便 返 回 BASIC 。 
3. 改良 反 小 篇 印 列 功能 6. 找寻 功能 的 女 人 
当 你 进入 Moniton 全 ( 首先 看 姓 下 面 的 例 节 : 
一 ALI--151)  ， 如 果 用 ” 先 按 < 了 SC> 开 (不 要 按 < 
IT ”指令 作 反 小 篇 印 列 。 它 站 RETURN> 。 再 输入 : 
-下 会 只 印 出 2 0 行 便 停止 。 再 200:AA 01 4C 
显示 游标 等 待 输入 ， 新 的 工 指 N DOO0.D7RPES 
令 。 在 显示 一 惧 程 式 合 。 会 售 再 按 下 < REBTURN > 
着 但 东 不 出 现 游 标 。， 你 可 以 过 首先 你 会 看 到 画面 的 上 方 会 


人 以 下 键 : 被 如 坑 秽 窗 ， 及 指 今 行 会 停留 
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在 此 ， 其 次 你 会 君 到 一 个 反 息 
的 “ DO3IEB- ”显示 及 一 列 由 
DOEB 开始 的 反 泪 应 言 印 
列 。 你 可 以 在 DOEB 那 于 找到 
40 过 个 数据 。 

过 时 你 可 以 使 用 的 链 和 第 3. 项 
的 反 小 篇 印 列 差不多 : 

< 一 > 灯 缠 显示 多 行程 式 
<SPACE > 粮 续 颖 示 下 一 行 
程式 

< 卫 S C > 跳出 程式 ， 出 现 洲 
标 

技 其 它 键 会 礁 续 找寻 下 一 个 指 
定数 据 ( 过 个 例子 是 4C ) 的 
地 址 所 在 。 
运 个 功能 主要 是 在 某 一 个 指定 
的 地 址 区 域内 。， 找 簿 一 些 数 据 
的 所 在 ，。 它 的 完全 使 用 形式 仿 






200;Wildcard nuaber of 
bytes Bytes 上 address 
range 8S - 


其 中 numbetr of bytes 
表示 你 要 找 录 数据 的 长 展 。 卫 


一 ytes 节 不 表示 只 有 一 个 b 


一 yte 。， 而 是 可 以 是 多 个 的 
被 录 找 数据 。 

本 是 用 作 分 隔 数 据 及 地 址 之 用 
s* address range 是 要 
找 巡 的 地 址 区 域 。 以 点 号 作 分 
隔 ， 而 最 后 三 8 j 则 需 指 今 的 
完 桂 号 。 
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至 於 Wildcard 的 用 法 了 举例 
见 表 一 。 

7. 没 有 卡 式 指 今 
用 来 作 获 写 卡 式 带 的 指 今 及 及 ， 
允 已 沟 删 去 。 使 用 R 及 男 指 分 
蛙 会 出 现 : 
“NO RAW” 
导 息 及 一 径 Beep 响 “= 


程式 在 RAM 卡 上 使 用 过 


篇 了 机 引 程 式 在 R AL 卡 上 
使 用 。 我 们 要 进行 一 系列 的 步 辟 
( 即 上 面 的 BASIC 程式 之 功能 


1.CALI 一 151 进入 Monito 
ER 
2 按 C081 C081 并 诬 有 
一 A 贡 卡 可 作 宫 和 人 状态 。 
3.DO00<DO00. 了 了 了 也 
下 指令 把 ROI 的 BASI 
一 CC 及 Moniton 抄 至 RAK 
卡 上 。 
4.BLOAD NEWROM 。A$B 
800 把 收 良 了 Autostar 
--t ROM 载 入 RAM 卡 。 
5s. 按 CO 8 0 雇用 RAX 卡 代替 
原来 的 ROM 。 
6. 按 3DO0OG 返 回 BASIC 。 
这 时 你 已 进 人 新 的 Monaitor 
状态 之 下 使 用 。 


表 一 、 找 寻 功 能 例子 
例 | 


200: CC 0 3 全 CC EBD 机 卫 800' 下 卫 卫 了 5 


ES 
BR800 至 卫 卫 卫 卫 。 
本 


bytes 的 数据 。 
表示 有 一 组 5 个 bytes 的 数据 o 
获 据 中 Wildcard 代 够 o 






有 Wildcard 出现， 雪 示 在 地 址 $ 了 8 O 0 要 蔬 卫 下 耳 卫 内 找 出 一 个 


5bytes 数 钥 ， 它 是 4C?? 了 了 ED。*( 非 CC， 因 需 CC 是 Wildc 
-ard ) 例 如 4C 51 RD。4C 了 卫 卫 D 等 ，C CC 认 是 和 才 示 
不 定 值 。 


例 2 


00:3BB 05 AS 02 CCL BB BE N 2000 
”二 卫 卫 了 8 


[搜查 区 域 由 地 址 


2000 至 & 了 了 了 。 


5bytes 的 数据 。- 
表 示 有 一 组 5 个 bytes 的 数据 。 
数据 中 的 Wildcard 代 号 。 


委 示 在 $ 20 00 至 $ 2 也 卫 卫 内 找 数据 租 A2 .02 0C1 


了 了 卫 例如 AS 02 CC1L 10 了 卫 或 AZ OO2 
了 了 卫 等 


? ? 
c1 5D 


gf 
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活用 BASIC 的 
VAL 及 MID$ 指 全 





8 


V AI 工 及 MID $ 南 个 都 可 2 5 ”) 。 如 果 你 使 用 V A 工 指 
以 夫 是 很 常用 的 指令 。V A 工 指 . 令 * 如 VAI(ASV$)， 便 会 得 
邻 的 功能 主要 是 把 字符 慑 数 的 数 出 2 3 过 个 数值 。 
字 字符 委 成 数值 。 例 如 在 A $ 内 如 果 字 符 儿 数 内 东 无 数字 字 


存 有 字符 J&45S ( 即 A$=”“ 世 符 ， 用 V A 工 指令 便 得 出 数值 圭 
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s 例如 A 有 =“ABC”s 则 Y 
-AI(A$) 的 值 便 需 0 了 。 

你 有 没有 考 感 明 如 果 A $ = 
“ALSSs 贡 KK7”。， 如 果 使 用 Y 
一 A 工 指 售 会 得 出 其 麻 值 ? 很 多 
时 我 们 输入 的 东西 便 会 是 字母 及 
数字 混合 。 要 储存 时 自然 是 要 当 
作 字 符 不 理 *。 例 如 身份 十 号 码 
车 牌号 码 等 。 

在 A$=“A1L235HK9” 
例子 中 。 如 果 过 一 个 字 串 的 每 一 
个 字符 都 有 本 身 的 意义 ， 如 其 中 
的 1 3 5 是 记录 炉 号 。 如 果 要 用 


VYAEL 取 出 数值 便 显得 有 些 困 诡 


* 因 坑 VA 工 指令 会 首先 检 和 视 第 
一 个 字符 。， 如 果 是非 数字 ， 便 会 
得 数值 0 了 。 

但 是 你 可 以 跌 明 第 一 个 字符 
。 加 利用 字 串 指令 RIGHT $ 等 
去 完成 : 


RIGHT$(A$。ILEN(A 和 ) 
一 工 ) 


便 得 出 一 个 少 了 第 一 个 字 行 的 字 
串 了 ， 不 允 我 四 可 以 更 简单 地 利 
用 MIDSH 指 今 : 


MTDS$(AS$，2 
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或 者 你 会 膏 。M ID 和 $ 是 露 票 有 
三 个 参数 的 。 过 样 是 不 合乎 了 一 
ASIC 之 法 的 。 不 过 党 App les 
一 oft BASIC 翻译 MID$ 
(A$，2 ) 运 庄 蛙 。 它 会 从 字 
符 汪 数 A $ 中 。 从 第 2 个 字符 起 
取出 一 个 字 串 。 其 功能 便 如 用 

RIGHT9$(A。， 工 卫 本 ( A) 

一 1 
一 样 。 显 然 用 M IDS$(A$， 
2 ) 比较 简 深 及 易 於 恤 写 。 

过 时 和 人 A$ 和 绝 过 MID$(A 
$。2 ) 后 已 得 出 了 字 串 “1 2 
5 互 K” 了 ，。 再 用 指 合 : 


A=-VAIL(UMIDS$(ANA 
$。2) ) 


又 会 得 出 怎样 的 数值 吧 ， 它 会 得 
出 25。， 而 接着 的 字符 由 共 不 
是 数字， 所 以 会 删 去 不 好 ， 即 人 
一 123。 

想 括 来 设 使 用 V A 工 指 今 时 
。， 决定 有 浅 有 数值 输出 ， 是 在 於 
套数 字 串 的 第 一 个 字符 是 否 数 字 
; 另外 M 工 D $ 的 特殊 用 法 亦 已 
介 达 ， 和 希望 对 大 家 在 写 程 式 蛙 


有 启 帮 助 。 





写 


古 埃及 金字 墙 内 。 险 道 、 蔓 
室 分 优 其 中 。 探 险 除 深入 金字 增 
内 进行 一 连 串 的 考古 及 发 据 工 作 
。 但 是 有 探险 除 进 内 而 无 故 失足 
的 先例 。 所 以 进入 金字 塔 内 必需 
揽 带 自 衡 武 吕 。 另 外 金字 塔 内 空 
气 混 测 。 所 以 亦 需 配备 氧气 简 。 

原来 在 金字 塔 内 有 一 些 外 星 
人 进行 破坏 地 球 的 工作 。 它 们 以 
金字 塔 内 需 基 地 ，。 举 人 备 - 直 撤 展 
下 去 。 堆 是 需 了 地 球 全 人 类 之 安 
危 。 效 下 便 负 上 条 敞 救世 的 大 任 
务 。 


人 程式 的 玩法 


程式 执行 后 另 面 会 出 现 如 力 
( 工 ) 般 。 每 一 个 莫 室 都 四 医 
秆 ( 空心 方 格 砖 ) 。 及 通 往 另 一 
个 墓室 的 门 ( 一 横 或 直线 ) 。 如 





室内 亦 有 糊 壁 。 你 和 外 星人 便 不 ， 


於 其 中 。 

直面 的 右边 是 氧气 寻 。 名 禹 
0o2( 即 化 学 符号 0 2 ). 。 媳 面 
下 按 有 分 数 寻 。 最 高 记录 及 生命 
次 数 ( 共 有 3 次 机 会 ) 。 

”你 本 身 是 用 5 个 钢 控 制 的 ， 
分 别 用 < ce > 。< 一 > 。<A> 


、 金 字 塔 内 的 外 星人 
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。， < Z > 及 <SPACBE > 作 左 、 
右 、 上 、 下 及 发 射 子 导 之 用 。， 子 
弹 发 射 的 方向 是 与 你 行动 方向 一 
簿 的 。 


人 程式 的 输入 


.程式 分 念 丙 段 、 程 式 人 是 珊 
定 主 程式 放置 的 位 置 ， 及 载 入 主 
程式 一 ， 主 程式 一 便 是 整个 程式 
的 主机 部 份 。 程式 (一 ) 薄 以 : 
SAVE GAM 
储 起 来 。 
程式 使 用 尘 突 需 执 行程 式 人 ) 
便 可 。 


程式 中 


10 NOIE ，PRINT ， HTAB 4 PRINT 
"》RPPLEUSER SO0FTWARE PRESE 
NTS 《=” 

30 PRINT ，HTA8 10，PRINT “LOAD 了 
N6 THE PROSGRAN 

40 VThAB 20: HTAB 10: PRINT “OAE 
ONENT PLEASE 

90 LOCL = 16384 + 13 If PEEK {1053 
)] + FEEK (104) 4 256《〈《 > 外 
0C THEN POKE LOC - 1 0 POKE 
103,LOC - IMT (LOC /250) 二 
256: POKE 104，JNT 人 L8C / 25 
6) 

100 PRINT CHR 杀 《44) RUN 有 E” 


程式 器 ) 


10 608U8 1130，60T0 360 
20 RN = 2 RN (+ 1 RETURN 


40 VYThB 21: HTAB 7 FRINT SLCZ RETURN 


50 FORL= 5 TO ED% STEP 5 DRAH 
BLX AT LELNZS NEXT L， RETURN 


60 FORLsSTZ TO EDX STEP 5 DRAN 
BLX 人 T LNX LNEXT L， RETURN 


70LXsNRYA+ RN (+ IIF RX 
2(LX) = 0 THEN RETURN 

80  XBRAW RBX 太 T RXX 人 LX) RYZ 人 LZD 
RMX = 3 RND () + ts IFR 
习 =1THEN 60T0 1 

是 IF RXX 人 LX 》 PXTHEN RXZ 《2 ) 
= RXX{LX) ~ INZ 60T0 100 

90 IF RXZY 人 L%) 《YX THEN RXX 人) 

= RXX(LX) + INZ 

100 IF RYXLLXZ) 》NYX THEN RYX(LZ 
) = RYZ(LXZ) - INZ， 60T0 120 

105 IF RYZ(LX) 《 NYZ THEN RYZILX 
) = RYZ{LZ) + 了 MY 

110 60T0 120 

tttf RNY = 4 下 RND (1) + 1 ON RN 
2 60T0 112,114,116，118 

112 IF RXZILZ) 》5 THEN RXXILYX) = 
RXX 人 LX) ~ 了 MX 

113 60T0 120 

114 IF RXXLLX) 《 255 THE 和 RXY【L 
) = RXXILX) + 了 MX 

115 60T0 120 

116 IF RYZCLX) 》5 THEN RYXIL2) = 
RYY 人 LXZ) -TIN 

117 60T0 120 

1t8 IF RYXZILZ 《 145 THEN RYX 人 YX 
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120 


130 


140 
150 
100 


190 


220 


250 


210 


= RYYZCLX) + 了 INZ 

XDRAW RBY 8T RXZ《LYX)》,RYX{LX) 

: JF RX% 人 LY) = 基 XX THEN IF 
(RYX(LZ) = YX 0R RYY(LZ) = 
MY + INX) THEN POP ，6070 
470 

IF 8DX《 》0 THEN IF RXYXI 人 L 
2) = 8XX AND RYZ{LY) = BYZ THEN 
FOR L2 x 10 T0 100 STEP 10: 
POKE 768,L2:; POKE 769 2; CALL 

770， NEXT L2: XDRAN BUZ AT 8 
XX ,BYX， XDRAW RBY AT RXX《LYX 
,RYXULX) :SCX = SCY + 103RXE 1 


Lo = 0 605UB 40:8DX = 0 


RETURN 

XDRAW 3UX NT BXX BY 

IF 380 = 让 THEN BXX = BXX = 
II 60T0 270 

IF BDX = 并 22 THEN BXX = BXZ + 
IN 60T0 270 

IF BDX = H42 THEN BYX = BYZ - 
[MX: 60T0 270 

IF 802 = NM52 THEN 8YX = BYZ + 
IN 

XDRAW 3UY AT 6XZ ,BYX: IF PEEK 
(234) z 1 THEN RETURN 


280 802 = 0 XDRAW BUZ 及 和 88， 日 Y 


290 


300 
310 


-FoRLs 1T0NRZ: IF RXY 人 L) = 
8BXXZ AND RYXIL) ee BYX THEN FOR 


L2 = 10 T0 100 STEP 10，POKE 
768,L2:; PDKE 749,2; CALL 770 
NEXT L28 XDRAN RBX AT RXY 1 

L) RYX(LJSCX = SCX + 103RX 
(L] -= 0: 60SUB 40， RETURN 

NEXT 上 

FORL = 1 TO DZ IF DXXZ(L) = 
BXX AND DYXLL) = BYX THEN  POKE 
768,100; POKE 769,10:， CALL 7 
77 XDRAW DIMZ AT DXX《L) DYZ 人 


LSCZ = SC + 25，608U8 40: 
RETURH 
320 NEXTL 
330 FORL = 1 T0 NOX IF 0XX 人 L) = 
BXX AND 0YX(L) = BYX THEN POP 
; 6070 480 
340 NEIT L RETUR 
350. EM = 1:SCX = 03LIX = 3:ARX 
30:ChX = 0:tLX = 5:LVX = 1 RETURN 
360 608U8 750 
370 kPY = PEEK { - 16384)。 IF NR 
Y 》0 THEN 8098 70 
380 IF BOX《( 》0 THEN 80SUB 15 
0 
390 [由 = CR + 1 TF CS 》TAX THEN 
POKE 768,200; POKE 749,5: CALL 
770;， XDRAH DTX 8T 274,150 - 
(5 4 ARZ)CAX = 0 人 RZ = ARX - 
1; IF ARY = - 1 THEN 490 
400 IF KPXY = CTY(1) THEN XDRAW 
HPZ 放 T 全 YX HPZ = 
= MXX - INX， 60T0 470 
410 IF KP% =.CTZ(2) THEN XDRAW 
HPX 和 AT NMYYX3:HPX 二 2X 
= MY + INZ， 60T0 470 
420 IF KPXZ-= [TYL3) THEN  XDRA 
HPX AT NiXX NIYX2HPX = 有 4X3NYX 
= MYX - INX， 60T70 470 
430 JIF KPX = 5T2(4) THEN  XDRA 
HPX AT NMXXNYX2HPY = MX3NYY 
= IIYX + INZ:， 60T0 470 
440 IF KPY = (CTX(5) THEN IF HPY 
4《 》NX THEN IF BDI = 0 THEN ， 
8D2 = HPY:BXX = Kx:BYY = MY 
1 POKE 768,100，POKE 769,10 
(CALL 770，60SUB 160 
450 If KPX = 155 THEN PIKE -1 
6368,0 VThB 10: 6ET 时 
460  XDRAN HPX 有 T 折 XX MYX:HPX = 
了 3 XDRAW HPX AT XXX ,YX5  S071 
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470 


490 
500 


510 


920 
930 


370 

XDRAW HPX AT  ABS 《NMXX) ，A99 
(WY) PPOKE 768, 1 POKE 769， 

2 [CALL 770: 下 了 EEK (234) 《 
》20 THEN 520 

60T0 370 

FORL=1T0NO 

IF 0XXLL) = 间作 ND {DYXIL)》 = 

MY 0OR 0YX(L)》 = NiY + 5 THEN 
60T0 530 

NEXT L 600T0 560 

%DRAN HPX 及 T 交 交 交 YX 了 R 有 

0 AT 0XX 人 LOYX 人 OLD DRAH 

HP% 及 T 闪 YX FARY = 30 THEN 
60T0 370 


540 RNX = RND (1 + 1 IF RN 


590 


500 
570 


580 
990 


6 


+ RNRY 》 30 THEN 6070 540 
FOR = 1 TO ARNZ，XDRAW 0TX 下 
274,150 - (RhRX 二 5) + 作 生 
5)) POKE 768,200; POKE 769， 
9 CALL 77Z0: NEXT L:ARY = AR 


又 + RNX 60T0 370 


FORL = 1 T0 NO 
IF DXXLL) = 人 X AND (DYXL) = 

史 .0R DYZ(L) = WYX + 5) THEN 
60T70 590 

NEXT L， 60T0 630 

POKE 768,100: POKE 7469 ,10， CALL 
770:，XDRAN HPY 及 T MXX MYXS XDRA 和 
D% AT DXX 人 L) ,DYX(L) 。 XDRA 

HPX AT.NXX MYZ:SCX = SC2 + 1 

004: 608UB 40; 60T0 370 

IF D0x(1) = 1 AND NMYX = 0 AN 

HHXX 》115 AND MXX 《145 THEN 

EXy = 3 60706 360 

IF 997(2) = 二 3 MY < 143. 人 8 
人 》 115 AND 冯 人 《< 《45 THEN 

入 = 4: 60T0 3 的 

IF 00X43) = 1 AND MX = 0 AND 
MYX >》 AND MY 《 85 THEN 上 


六 = 1， 60T0 360 
660 IF 90214) = LAND NXX = 260 AN 
MY 》60 AND MY 《 85 THEN 上 
= 2 60T0 360 
670 FORL = 1 7T0 20，XDRAN HPX AT 
MX YX XDRAN OLX 用 T 玫 X 和 和 
2 pPOKE 766,5，POKE 769,2: [CALL 
770: XDRAW DOLX AT 7，NYX。 DR 有 
HPX AT 人 XiYX POKE 766,10 
POKE 789,2， [CALL 770: NEXT 
LIDRAW HPX AT MXYNYz， 60T0 
700 
680 FORL = { T0.20: POKE 768,10 
: POKE 769,10; CALL 770， POKE 
- 16298,0， PKE 768,50: PDKE 
749,10， CALL 770: POKE - 1 
297,0: NEMT L;， 860T0 700 
4690 FORL = t0 T0 200 STEP 10， POKE 
768,L;，POKE 769,5，CALL 770: 
NEXT LS XDRAW HPX AT MY，NY 
XRDT= 16: XDRAW 1 RTM 
YX ROT= 0 FORL si1T01 
500;， NEXT LARY = 30 
700 LIX st -1 FL 》0THEN 
60T0 360 
710 POKE - 16368,0:。VYTAB 24;， PRINT 
BANE DVER，* NORNMAL ，PRINT 
9PLAY ANDTHER 6ANE 《Y7N)99 
6ET 时 IF 的 = Ne THEN TEXT 
HOME ，VT68 22; EN 
720 IF6《 》sy THEN 60T0 7! 
0 
730 IF SC2 》HSX THEN HS2 = SCX 
740 .60SUB 350:， 60T0 360 
750 POKE -~- 18368,0:80% = 0， HBR 
，HONE ，VThAB- 21，PRINT *9C0 
RE:"; SCX，VTAB 218 HTAB 22， PRINT 
忆 LIVES:ILIY VThAB 22， PRINT 


。， HL SC0RE: “HSZ  VTAB 21; HTAB 
40:， PRINT s09: VThB 22 HTAB 
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40: PRINT “2" 
7710 本 L= LT0 4 化) z 0 账 1 


780 nx 0 608UB 20， IF RNY = 
THEN CI = CMZ + 1:9TX = 
EDX > 260:LMY = 0， 60SUB 50; 
60T0 6800 
790 8T4 = 0:EDX = 115:LNZ 。 0， 6808UB 
50;， HPLOT 120,2 T0 145,2:D0y 
() = 139TX = 145:EDX = 260， 
LM = 0， 60SU8 50 
800 608U8 20: IF RNX = 2 THEN [ 
Y =- CMX + 1:9TX = 0:EDY = 26 
0:LNY = 150，608U8 50，60T0 
82( 
810 STX = 0:E 史 = 115:LNX = 150， 60SUB 
50，HPL0T.120,152 T0 145,152 
00%(2) = 1:8TX = 1454EDX a 
2640:LMY = 150，60SU8 50 


-820 805SUB 20， IF RNZ = 2 THEN DC 


= [CNY + 458TY = 5:EDY = 14 
SiLNX = 0 60SU8 460，80T0 全 4 


0 
830 8TX = 5:E02 = 0:LNX = 0 60SUB 
人 0 HPLOT 2,645 T0 2,90:00243 
) 438TX = 905ED% = 1453:LM 
= 0; 60SU3 的 
840 608U8 20， IF RNX = 2 AND CNY 、 
《 》3THEN ST = 5 EDY = 1 
45:LNX =.260: 605UB 60: 60T0 
860 


650 8T% = 5:ED% = 60:LNY = 260， 60SUB 


60， HPLOT 262 ,45 T0 262,90:0 
0X(4) = 13STy = 90;EDY = 145 
:LNX = 260: 80SU8 60 

860 FOR L2 = 1 TI t2， 60SU8 20， IF 
RNY = 2 YHEN 0 L2 60SU8 68 
(0890 ,900 .910 ,920 ,930,940，95 
0,960 ,970 ,980，990 

870 NEXT L2: 60T0 1000 


880 STX = 90:ED2 = 130:LNYX = 40: 60SUB 
50， RETURN 
890 ST7 = 130:EDX = 170:LNZ = 40; 
608U8 50 RETURN 
900 8T7 = 45:EDX = 130:LMX = 75; .60SUB 
50，RETURN 
910 STX = 130:EDy = 21S:LNX = 75: 
608UB 50; RETURN 
920 STX = 90:EDX = 130:LMZ = 110; 
608UB 5S0 RETURN 
930 8TX = 130:EDX = 170:LNX = 110 
: 60SUB 50 RETURN 
940 6TX = 45:EDX = 75:LNX = 4 60SUB 
608 RETURN 
950 STX = 75:EDX = 105:LNX = .45: 60SUB 
60， RETURN 
9840 ST2 = 40;EDX = 75:LNZ = 130， 808UB 
60， RETURN 
970 STZ = 75:EDYy = 110:LMX = 130: 
60SU8 40 RETURN 
980 STX = 45:EDX = 75:LNX = 215，60SUB 
60， RETUR 
990 STX = 75:EDY = 105:LNMZ = 215; 
60SUB 60，RETURN 
1000 MOZ = 4 4 RND (1) IF MOZ = 
0 THEN 60T0 1040 
1010 FORL = 1 TONOX 
1020 0XX{L) = 41 3 RND (0) + 和 0 
YXtL) = 22 3 RND (1) + 430X 
X(L) = 0XX(L) 4 Si0YZ 人 L) = 0 
YIL) 于 5 XDRAW 0TZ AT OXX 人 
) ,0YX(L): IF PEEK (2340)《 》 
11 THEN XDRAW 0TZ AT 0XX 人 L) 
0YYX 人 LI) 
1030 NEMT 上 
1040 MD > 4 RND (1)5 ITF MDY = 
0 THEN 60T0 1080 
1050 FORL = 1 TO NI 
1060 BXZL) = 4 主 RND () + 4 
YXtL) = 22 RND (1 + 本 D 


40 


XiL) = DXX(L) # 5;DYX 人 L) = 
YI 人 L) 去 3 XDRAW DNX 有 T XXX 丰 
) YX(L)。 IF PEEK (234)《 ) 
1 THEN XDRAN DMX AT DXXL》 
DYX1L) 

1070 胰 籽 上 - 


1080 NRY = 44 RND (人 IF NRX = 


0 THEN 60T0 1100 
1090 FORL = 1 TO NRZ:RXZIL) = 4 
{ 4 RND (t+ 4RYYLL) 22 
业 RND (1) + 43RXX(L) = RX 
(L) 4 5;RYZIL) = RYY(L) 3 5: 
XDRAW R8X AT RXYX(L) ,RYXZ(L) 
NEXT 上 
1100 HPLOT 273,0 T0 273,155 T0 2 
79,155 T0 279,0 T0 273,0，FOR 
Lz=0TOARZ: XDRAN 0TX AT 2 
74,150 - 信 4 5) NEXTL 
1110 MX = SXY(EXXY) :NMYZ = SYXZ(EXX 
) :HPX = 5 XDRAW HPX AT 玫 X2， 
MY 
1120 POKE - 16304,0， RETURN 


1130 SH = 795，POKE 232,SH -INT 


(SH / 256) 4 256， POKE 233，INT 
(SH / 254) 

113! FORL = 0 T0 194; READ L2: PDKE 
SH + LiL2: NEXT 【L 

1132 DATA 12,0,32,0,42,0,51,0,02 
10;750,92,0，1100,128，0，144 
0 


1133 DATA 160,0,179 ,0 ,182,0,184， 
5，0)5，0，54，54， 4，45，36，36， 
63 ,119 

1134 DATA 50,0.9,30,54 ,14 36， 44 
,54 ,409140323,45 ,45，30， 
314 

1135 DATA 5,0,41 147 31 ,3146 4 
5,245,43,30, 13,13,5,0,9;30,1 
4.62,23 

1136 DATA 118,50,110,36,28,361 


41,228 ,4 ,193 ,4 ,0,9,30,13 30， 
62,23,182 ,1 

1137 DATA 5,193,100,36,45,158，21 
154 609301330，46 21 ,182 
,18,7,193 

1138 0hATA 228，36 603862354， 6， 
0,.9,30,14 ,12,53,30,55 ,54,53， 
190,35,228 

1139 DATA 3212,4 ;09142328， 
55,14,53,54,55,118,33,100,32 
,28 7,0 

1140 ”DATA 76，141，22，149 ,214，22， 
214 ,31,7,193,193,4,193,7,193 
,193 ,88,7,0,137 

1141 DATA 50,0000 

1150 SCALE= 1; ROT= 0: HCOLOR= 3 


1160 FORL= 17T04 READ SX2 化 ) 
: READ SYx(L}， 兹 XT 
1170 DATA 250,7010, 779430139， 
130,10 
1180 60SU8 3550:INX = 5:H32 = 0:8 
Le1:0T = 2302 = SRB% = 
42Ht2 = 5322 = 6 HS = 724 
xx = 8:N52 = 9:0L2 = 10:8UX = 
1 人 = 15 5 
1190 FORL = 0T023: 了 用人 L2: FOKE 
770 + LiL2; 人 EXT 人 
1200 0hTA 1417403173 192,156 
1208,5206， 1 3124019202，208 
)245,174)0， 576154396 
1240 FoRLsTT05 READ CTXLL) 
: 丝 XT 
1220 0TA 136 4494193216,160 
1230 HO 了 E INVERSE ，PRINT “ 
CONTROLS 
”NORHAL 


1240 0hTA LEFT,RIGHT UP DOWN FIR 
E 
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1250 VTAB 4 FORL = ! T0 5: VThAB 
24L+2; PRINT 2 (9 
TAB 2 
23 HTAB 4 READ 6 和 PRINT 6 
; NEXT 上 

1240 VTAB 1 PRINT 。 PRINT “人 《RN 
Y 0THER KEY STOPS Yo9U R MOTI 
0N) 

t270 FORL =1T05:VTAB 2 41L1+ 
2 HTAB 373 PRINT ” “TAB 
23L42: HTAB 375 IF CTZLL 
) 160 THEN PRINT “58》 860T0 
1310 

1260 了 CTXL) 1 THE 村 PRINT 
《= 60T0 1310 

1290 IF CTXIL) = 149 THEN PRINT 
“60T0 110 

1300 L2 = [CTXLL) =- 129。 PRINT CHRY 
(2) 

1310 NEXTL 


1320 VTAB 20; HTAB 1 PRINT “ENT 


ER# TO CHAN6E，0R"， INVERSE 
:PRINT "RETURN NORNAL ， PRINT 
”TO PLAY 紫 T 6 IF 6 
za [CHR$ 《135) THEN RETURN 
1330Ls WhL (6$) IFL( LORL 
>5 THE 60T0 1320 
1340 FRINT 时 
13550 VTAB 22: HTAB !3 PRINT “PRE 
SS NEN KEY "6ET 6$:L2 = SC 
(6$): IF (L2 》3L AND L2 《9 
lt) OoRL2=80RL2 =21THEN 
60T0 1370 
1360 60T0 1350 
1370 LTZIL) = 了 CC (时 ) + 128:，VTAB 
20: HTAB 1 CALL ~ 868:，VTADB 
22; HTAB 1 CALL -~ 868， 60T0 


1270 


自 素 香 亿 家 当然 是 天 詹 昔 沁 
的 程式 。 而 玩法 十 分 简 羊 。 你 只 
需 把 程式 坟 人 全 ;， 再 按 RUT， 
它 就 目 乳 宫 出 目录 攻 你 渤 择 。 如 
你 滤 了 且 销 的 第 一 列 ， 你 只 跟着 
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向 


局 色 吧 > 


指示 去 按键 然后 等 待 。 监 祝 器 自 


动 出 现 五 综 谱 和 香 符 。 而 电脑 本 
身 发 出 声 香 。 分 用 家 们 得 到 对 贡 
的 僻 趣 。 

面 在 目录 的 第 二 行 ;， 是 侦 有 
趣 的 程式 。 只 需要 跟着 指示 ; 你 


图 全) 
SINE MAESTR0 
CH00SE ONE NUNBER: 


1，LISTEN TO0 六 COMPUTER-NADE TUNE 
2，[CREATE 及 -SONG 9N THE APPLE ORBAN 
了 3，SAVE YDUR SONS 0N DISK 

4，LISTEN T0 THE SONE 了 并 NEMGRY 
5，L0AD A SONG FRONH TISK 

4，EDIT THE SON6 IN NENMORY 
7，INSTRUCTIQNS 这 eR， 

8，KCATALOG 
9。etTIT 


并 


PLEASE 人， 


就 可 创作 自己 喜 数 的 秋 染 。 膛 有 


你 又 可 把 自己 创作 的 昔 乐 记 下 或 
重 划 。 和 有 香 符 在 电 觅 上 的 编排 
* 你 只 注意 目录 的 三 、 四 、 五 行 
指示 束 成 了 。 


图 全 ) 


cclpE-EFFIGA-Ae- B 





. 带 个 程式 分 人 需 三 部 份 ， 每 价 
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程式 都 有 的 用 处 和 国保 。 所 忆 
三 个 程式 都 要 备 欠 一 张 磁 耕 上 。 


图 全 
丙 二 
-16TH 2-00TTED 16TH 


4-0OTTED ETICGHTH 
6-DOTTED QUARTER 
8-00OTTED HALF 










3-EICHTH 
5-QUARTER 
7-HALF 
9-WHOLE 






















程式 下 在 输入 合 请 以 : 


]98VE SIM6,8RESTR0 
苦 太 区 汪 





程式 器 在 输入 和合 请 以 : 


SSE STAFF 。 本 用 关 下 





程式 = 因 需 是 机 械 落 言 程式 所 请 
以 : 


JBSAVE MOTES ,NE gb， LI1E3 





储 起 来 。 


而 过 程式 亦 可 给 J e 和 I c 
使 用 。 你 只 改 程式 一 的 6 8 0 。 


690。810 就 行 。 
驻 人 


680 PRINT ， 5 CD E-E 
FF46P-RB- 3*: PRINT 。 
--------- “， PRINT *99PRAN0 
下 
*， CHR 二 《95 "REN 29 H 
YPHENS 

890 PRINT 。 TENWR; AS 8F 6 

Hd KL ;RET) 5 PRINT 

*。 BASS: YY CCVW SNK ， 

》1 3， PRINT - 咏 0W B-: 
"CHR (96) 1 和 EST: 《SPACE 
BAR》 “PRINT 

810 JRATR 98.90.88,67.86 60,78 ,7 
7,4446,47,45,65,83 ,88,70,71 
,72,74,75,76,59 ,39，13,81 87 ， 


程式 人 


8 LOEN 25088:C3S = 49108: 60T0 
下 10 
30C=C+TIiC=3RIHDIZO AND 
L( 和 《TIFZt+tEaYL(Cy》 
W >DTHNZ=5:8=1U3( NOT 


8):， IF NOT 8 THEN 0N PF 69SU 地 


150: CALL H:I = 引 
100Y=8t46+TN t+ 8 IF CT 了 HEN 
DRAH CT AT ITYZ= t+tE:IZ 
0 = 
1 DRAREVY+YIAT IIYI = 7 + 如 
:RETURN 
120 FORG=TWTO AL -只 
+ 341{NOTLZt -RE 
:NEXT : RETURN 
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49,82,84,69 ,85;,73,79,80,91,9 
3,33，64，35,36，37,94,38,42,40 
41414564 


如 你 想 用 印 字 机 有 登 五 梨 畜 出 
来 。 而 过 机 双 是 卫 PSON  RXX 
一 80 了 BT 的话 。 
只 储 起 在 程式 内 : 


10 各 约 T ， -PRINT 0 本 “PR 着 研 PP 家 【NT 
CHR 生 【17) 6 PRINT DS2PR40 


2 RETHURK 





如 你 有 蛙 常 练习 ; 便 或 可 到 成 香 似 
家 。 


130 HZII) = CC + HF YY (2 - T9JKY1 
JJ = 和 人 TURN 
0 NN = XXX = 半 POKE CS RETURN 


150 PRINT :PRINT IsPR4H1e PRINT 
CHR# 《9j<6"， PRINT 0 和 ”PRO 
; RETURN 
160 PRINT = 人 YAN) 39 POKE [CS 
170 8 = FRE (四 ;6ET 6 PRINT 6 
和 RETURN 
180N = NN + R， HOME ，VTAB 23; POKE 
.人 ,让 PRINT sREADY TO ED1T2: 
60SUB 740: PDBKE FS ,tf 60T9 
200 
190 HOME : VTAB 22，PRINT "PRESS 


200 


210 


220 


230 


240 


230 L 人 N] 


200 


270 


280 
230 


人 zzN-RIY=R NEXT : 


gp THE 的 SI 


《ESC> TIO EN S0N6"，HGR CALL 


HAN =R:AM = V=FI 60SUB 


380 


FOR ZIY=TORSTEP #h 6GET 


6 和 :和 = WAL 《64): 
y = 8: 由- 
IF 寻 = "0 TEN 下 = 人 6 用 XT 


If & THEN - 


If 的 = 能 THEN 60SUB 390，NEXT 
IF 时 《人 CHRY (TT) 名 时 > CR 
(96)》 THEN 8 = FRE ( 提 : 人 EXT 


IF 时 =EORH 》 1395 THEN 
下 TURN 


= BXUV-RE (>》 认 ): 
TF= 作 -Ri ITF > 名 = 量 
:If6s>=>34 THEN J = NI:PZI 
NM) = RC= 明 
IF NOT JTHENY > 秽 ( AGE | 
人 人) ~- TT)PZ(N = 人 (0 = 
WOSC = 
605U8 90: POKE P,PZ{N)，POKE 
革 , 让 六 (村 CALL 二 60SU8 130 
= 六 +RIzI+R: 能 呆 
60SU8 350 
HGNHE 。VTAB 21:， PRINT 和 PRINT 
:PRINT "PRESG ANY KEY TO 9T 
H6R 《CALL HH: 
605S4B8 380:， FOR 1 = R TO ANY 
= 6X( 人 (LI = NI (PXIN) 
= RICE= 上 IF NOTJI THEK 
&= PPZ(X)3 0 = YZ{8):C = 
JX(@l 
505UB 90;， 9N A ANDI I 505UB 
20: POKE PP2(X，POKE L 计 六 1 
X) CALL ON FL 60SUB 130: 
=f+fR: If FEK 全 ) 》HF 
THEN 0SU 140: IF FL THEN 


45， 


NEXT ;60T0 180 
NMEXT :NN = 拓 ON FL 60T70 8180 
: IF Pf THEN 60SUB 150， PRIT 
PRINT 0 本 PR##t。 POKE 6 4 人 
- LEN (ht) /7 2:， PRINT hy PRINT 
D4*PR40as3PF = 0 RETURN 
HOME : WTAh8 21，POKE 汪汪 
PRINT ， PRINT *pPRESS ANY KEY 
T8 CONTINUE"; : POKE (9 ,和 = 
FRE 人 ):; FOR B = R TO P， 下 
PEEK () 》 由 THE 人 = 了 
NEXT ; POKE FS 6ET 64; 
: HOME ， RETURN 
3 PF = 0 IF NTFL THEN PRIMT 
“00 YOU WANT 有 PRINTOUT*; 605 
160; IF 6 = *Y" THEN PF = 1 
， 80SUB 430 
PRIMT "DELAY FACTOR = "APOKE 
CS , 由 INPUT 2TYPE NE DELAY- 
FACTDR，THEN 《RETURN>，0R《RE 
TURN》 艇 ONE FOR SANE DELAY: 
"64 IF 【AL 16) >》 是 吕 有 
中 = *02 THEN A = WAL (6 本 
370 RETURN 
380 TF = 有 7 = 8:8 = 由 = 检 -FOR 
X = 用 T0 30:700 = 册 在 条 
;0 = 16: 60SU8 740:T = 册 ，PDOKE- 
FS， 休 RETURN 
390 JIF NOT I THEN PRINT 8; 


10 


20 
330 


340 PRINT 


300 


RETURN 


4001= 工 - R:N = 于 -RI= INT 
(HI FS = 公信 2 人 全) 
= NA《PZN =ROC= 批 人 
) -HE IIY=KYI):R = 证 攻 
(YY>92):0=(Y-TW-58) 7/ 
Z + 5 DRAEN 写 AT RAT 
.IF THEN Z = 了 -EXYDRAR 
TY IfFC=TTHEN IY(0 


! = 
人 
六 
=[ 
RN 


6: 
| 
4 了 


F NOT ITHEN CALLH 


420 8 = FRE ( 放 ，RETURN 

430 IF 内》2 THEN PRINT "USE 
2 .能 号 ;80SUB 160 
: IF 时 = Ye THEN RETURN 

440 .VThHB 18;， HTHB 1， CALL - 958 
: PRINT “TYPE SON6 NANE 1518 
LETTERS1; INPUT 。 移 

450 NF.= 1 IF LE (和 ) 》0 THEN 
FOR NC = 1 TO LEN (SN = 
人 SC 了 0 ( 角 , 代 ,全 NMNF = 
CN NM 91) 0OR 人 
hR = 46 0R (47 NB 
58 AND NMC 》1) AND NF = 1， 了 EXT 


455 JIF LEN (RS) 》15 0R NF =:0 THEN 
PRINT 8$=INVALID NANEL FOR 
NMC = 1 T0 1000:， NEXT : 60T8 
440 
460 RETURN 
470 TEXT HOME :HTAB 135: PRINT 
、、_、"SIMG NAESTRO":，HTAB 11。 PRINT 
:PRINT *CH90SE ONE NUNBER3。 
:PRINT ;PRINT "1，LISTEN 了 
和 有 COHPUTER-NNDE TUNE， 
80 PRINT "2，CREATE 有 SON6 GN 了 
HE APPLE 0RSBANs PRINT "3。，3 
AVE YOUR SONM6 o DISK*， PRINT 
“4，LISTEN TO THE SON6 IN HE 
MORY" :PRINT *5，LOAD 有 SONS 
FRaN DISK" PRINT “。，EDIT 
THE SONBG 和 作 ENORY。 
430 PRINT *7，INSTRUCTION5": PRINT 
“9，CATAL9S" PRINT "9，oUIT 
"  POKE CS PRINMT IF NOT 
F THEN HTAB 5， INVERSE ，PRINT 
"HAKE SURE CAPS LOCK JIS DO0M 
N “NORNAL PRINT :HTAS 1 
3: PRINT "PLEASE NIT, "609U8 
750: VTRNB PEEK (37) 
495 ALL -~ 8968 
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500 HThAB 1 WTAB 17， CALL -~ 958 
PRINT “Y9UR CHOICE， ;09t 
170: IF 时 = "9 THEN PRINT 
“ 虽 IT2 YAN 6ET 6$， PRINT 
:FEB 才 = "YY THEN .TENT NO 人 E 
:上 所 和 
it0nhz VALI(6): IFG《1ORB》 
E THEH 500 
0 下 hligR8z=2Ra=STHEN 
VThRB 17:， CALL - 958:，PRINT 
:PRINT "ANY SONB JI NENMORY 
WILL BE L09T" PRINT *DKhAY3? 
(Y/ 训 "6ET 6 PRINMT IF 
64《 > "YY THEN 500 
530FL= (= ON 609U8 710， 
190 ,9540280570，280,620,730; 
60T0 470 
540 605UB 430: IF 的 = THEN RETURN 
590 NERR 60TQ 400 
560 PRINT 了 OPEN 有 本 他 RTNT 了 本”C 
LO0SE" PRINT TS DELETEYA 苹 PRINT 
0 和 "OPEN 和 本 PRINT 也 全 “本 RITE 
$ PRINT AN FOR X = R TO N PAINT 
P2 人) PRINT LXfX NEXT PRINT 
了 本 CLOSE RETbRN 
5 时 = ”80SU8 430:，0NERR 60TG 
400 
580 IF 条 =” ”THEN PORKE EU RETURN 


90 PRINT 了 3 VERIEY 人 人 PRINT 0 


“PEN A 本 PRI 人 T 0 本 READ2A 二 ， 【NPUT 
N: FOR X = RON INPUT PZ( 
1 INPUT LOG) NEXT ;PRINT 

0 地 "CLOSE POKE EF， 闪 ETURN 


5650 【ALL 8B18 PRINT 0$"CLQSE*3;Q = 
FEEK 《222): IF 县 = 0RUu= 
TT THE PRINT 8 SORRY，IT 
ON MG 了 HAT ONE FOR NC 
= 1 101000 财 1 :860SU8 4 
40: 80T0 580 


6i0 


620 . 


3 


640 


650 


660 


97 


PRINT 8 本 ”ERROR 间 s@s。，LINE = PEEK 


(218) + F 二 PEEK (219)。，POKE 
EF ,起 PRINT “PRESS ANY KEY 下 
R 小 NM :人 IT -~ 16394,129: 
FOKE -~ 16368,0:; 60T0 470 

TE 休 : HOKE :HTAB 15:， PRINT 

了 NSTRUTJONS”"，POKE 34, 2 HOME 


PRINT “THIS PROGRAN ALLOMS YY 
叫 T0 PLAY THE KEY-BOARD LIK 
E 上 Ah40CTAVE ORGAN {1 NOTE 生 
了 ATI 号 )，，PRINT :， PRINT 
EFORE PLAYINS ANY NOTES,SELE 
CT A NOTE LEN6TH 8Y PRESSIN6 
ANY NUMBER KEY 1-9.9 
PRINT “IF ATRIPLET IJ9 T0 了 
PLAYED， 亿 3S0 PRESSC0>。，THIS 
SHORTENS THE LENGTH OF THE 
NEXT S HHDTES，EXEEPT FOR 
TRIPLETS 有 NOTS DURATION 
RENAINS 了 和 在 FFESCT UNTIL 丽 
NOTHER NUXBER KEY IS PRESSED 


PRINT :， PRINT THE DBURATIONS 
AVAILABLE ARE 的 FOLLOWS:Y: 
PRINT ”1-14TH" ,2-D0TTED 1 

6TH" ;PRINT ”3-EI6HTHs ,4-D 

0TTE0 EI6HTH2 PRINT 。 S-80A 

RTER" ,6-DOTTED @UARTER“， PRINT 

”7 了 -HALF" ,8-DOTTED HALFs， PRINT 

”9-WHOLE"， 609U8 330 

PRINT ， PRINT "TIF YOU TYPE FF 


ASTER THAN THE ORGAN CAN 了 


LAY，NOTES 人 TILL BE L0ST，PLE 
ASE WIIT FOR THE NOTE T0 S 
0UND BEFBRE TYPING IJN ANDTH 
ER NOTE，:， PRINT 

FRINT “IF YOU MAKE 上 NISTAKE 
1 YOU CAN ERASE BACK Y0 T 
HE T9P of THE DBISPLAYED SCOR 
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E WITH THE (《(--) LEFT-ARROW 
REY,": 60SU8 330: PRINT “TH 
E 4 0CTAVES ARE ARRANGED FRD 
首 TOP TO BO0TTON OF KEYBOAR 
PRINT 
680 PRINT 。 [C CD FE-E 
F FA-AB- 8 PRIMT ， 
-一 ---- "PRINT "SGPRAND: 
HR 9) 和 和 
() 5 -9 PRINT 
LI: ak ER TYU IOP 
8 RET ":， REN 29 HYPHENS 
690 PRINT *。 TENOR: AS DF 6 
HKL + -7 PRINT 
*。 BRSS: 7XY CEY 8BNH 
( ，》 /10 PRINT LOW 3-: 
? REST;: 《SPACE 8ShRy"， PRINT 


700 PRINT spPRESSTIN6 GTHER KEYS 刘 
ILL PRODUCE LO BFLAT 0OR 
NO NOTE AT 秽 La PRINT PRINT 
“WHEN Y0 骨 SON6 I93 ENDED，PR 
上 593 《ES TO RETURN TU 落 出 。 
0 330 

yxs RND 1I- PEEK (79) -Ft 
PEERK (739))， PRINT : FLASH : 

PRINT ”COHPOSTN 人 ”有 ORHAL 

: FOR = 和 TD 4 8:= 外: 有 = 
T FOR X = WTO IFNI7T 
Wi<X= INT IN TAN THEN 
IDxtx) = FI RND {R)YEY(X) = 
T 人 三 RND TIR) 

7 
:Pt 二 R = CXTNY(ST) LZ{ 村 
R) = 8 人 和 2 NEXT :有 = 机 :有 有 = 
01 290 

730 HOME PRINT 0#aCATALG6s，60T0 
330 

FoRa=0T0999: NT :Q > 


四 
中 
(me 


egeseedseaesasessalesseiea9eeeeetepeeegssseeaeessessseeseseseseseeaeeaeaeeseresaaseisess sc<-a ea-ee-e-3eeieeieesseeaece2eeiehieseeeeeeseyeseeaeeeaegaseses 


ecoeuesees------------evieeseese， es:'eeseasesssSssiseeeeeesteeieseseeiees eseseseseseeeeeesesss-sccee- 和 ee eneeree eeesissiaeaieeieeee<eeeeeeeeeee 


机 
下 本 直 本 训 
| 
0 
的 轴 和 让 0 | 合作 二 千村 和 计 让 全 和 
二 卫 可 其 丰 汪汪 本 Te 二 
2 
FRE 《0): RETURN IT 时 允 人 0 = 人 ^@:62(TW 


750 0 有 = 《HR 本 《4 PRINT 了 人 BLOA 
] NO0TES3"，POkKE 232,0: PUKE 2 
33196 PRINT 0 BLOAD STAFF 
1 VJAB 19， HTAB 26， 

760R=ftF=4E = :NI = 9:f8 = 
48:F = 2 站 6:T2 = 323P = 768:L 

= 7 的 才 = 770 必 = 本 152:Hf = 
127:D = 264:9 = 17:T = 213 如 2 
= l2:TW = 2:6 =3;TT = 13:1 
35 半 = 79i3Hh = .53T9 = 2 
?9:SE = 7;FI = 5;FS = 492343 其 
9 = 49235;EF = 216 

770 IN (283 2(30) CC2(F8) YX 
下 8) 9 人 9 ， 入 莹 了 9 汪 ) 人 人 92》 
(242) 4P2TEAO0T LT140OO) HZ (4 
1 KZ FOR YY = RH 和 OF9: 

ZX =FTWNAXA RN +H 

.FF AN 人 2 + HAN) 
= READ 和 :人 Xi 人 -TI = ， 
PRINT. ”。， 3 持 EX 了 

780 6Z (人 = NE:SZ(W2) = R:8X(W = 
W2:B8= FJ FRIY=RTDSE 3STEP 


= X36%((TN > +G7TI = 


+ RsB2X +R = 6 B20OD 7 
TB = + Ri MEIT 


7390 时 = (ChHR (SE):E 攻 = 《CHR 《2 


80 


810 


48 


7 时 = ChR 【1E) 35 = ””， HCOLOR= 
6; SCALE= R， RGT= W FOR 1 =W T0 
827: READ 2 POKE X7: NEXT 
:FOR YXY =RTITDSE RE 人 

); FOR =RTGS:NMXO+ SEE . 
N = MY + 2 NE ，PRINT 
"NEXT 

FOR X = 让 TD 机 : 了 ED YX 和 1， 

NEXT : FOR X = TS TO 11， RE 人 D 
人 NEXT : FOR N = RTO6 

: FOR YY =RTI NOX+21 

N = YX - 候 王 有 Id 

2 站 =2 人 :NET PRINT 
“3 NEXT : RETURN 

38TA 90,88,67,95,66，78,77，4 
41600146162447,65,83,68,70,71 
:72;74;75，76;59443，21;81 ,87， 


49,82,84,89,85,73,79 90,64 
3,33,34 35，36,37 38 3940 41 
攻 39, 和 2 ,和 
820 JRATA_ .1748,192,136,208,5,2 
40 .9202, 208 245，174 
,0.3.76 2.3 双 
830 0ATA 169 16413361 169 247 1 


程式 口 


80 .ONERR 60T0 220 
90 3 = CHR (和 0， H6R2 :80 = 9 
:HCOLOR= .3: Fo Y = 0 TD 80 STEP 
了 

100. HCOLOR= 1 FOR 7 = Y + 1.T0 
Yt 权 5TEP 4 HPLOT it TO 
278,7; NEXT :FOR 2 = Y +.54 

TD Y+ 78.STEP 站 RLOT:1 
TD 278,7: 拢 1T 

110_.HCOLOR= 2: :HPLOT 0,Y + 5 

.279,Y+ 如 HPLOT 0 YY+t 4T0 
279,Y + 485 HPLOT 0,Y +.94 .7 
279,Y + 94; HPLOT 0,Y +.90 T0 
279,Y + 90; HPLOT 0,Y + 12 T0 

279,Y + 计 

120 HCOLgR= 3 HPLOT 0 Y + 46 T9 
0YY+ 42: HPLOT 0Y + 54 了 
-0Yt+78: HpPLOT 279,y + 18 和 
279,Y 4 42: HPLOT 279,Y + 54 

T0.2794 + 78。 …， …、 

130 HPLOT 5 Y + 林 TO 5 Y + 和 ;HpLD 
6094 和 T0.8Y + 46: HPL0T. 
9,Y +.45:， HPLOT 10,9+ 4 T0 
4109 + 12; jpLOT 1 Y + 41T0 
YY HPLIT 43 Y + 12.T 
13 + 18:2 = 站 + 198 F9R 人 = 

t2T0 6 STEP，- 1 HRLOT X7 
:7 = 7 4.1: 作 EXT 
140 HPLOT 4Y + 26: HPLOT 5,Y + 


33,62,169,95,13363，189,32 1 
33,67，169 0， 133， 40 133,66 1 
0.0,76 和，254 DATA 104 ,148， 
1045 16642231154;72)152,72，96 

:DT 1 3.5.6 8， 10 12; DhTA 
30,29 29 28， 27， 27， 26， 26., 25，2 
4 ,24.23,25 


27 10 5,Y+ 28;， HPLOT 4 Y + 
29 T0 4Y + 30: HPLIT 3 4 
于 T03Y+36 HPLOT 4 + 
37 T0 4iY+ 36: HPLOT 5Y + 


39 HFEOT YY 40 TG7Y+ 


40; HPL0T 8iy+ 有 TO 12 + 


. 直 : HPL9T 13Y + 40: HpLT 1 


- 4Y+ 强 


150 


100 


170 . 


180: 
.1 


9 FOR 


HPLOT 15Y 4-38 T 13,Y + 引 
， HPLOT 14Y + 琵 ， HPLOT 1 
Y+32HPLOIT 2YY 对 103 
让 3 印 L0 Bi + 321 HLOT 


7 Y+3T07Y+ 引 


HPLOT YY 寻 了 4Y + 人 
4Y4+60T6Y 的 T6yY4 
59 T0 4,Y + 59; HPLOT 了 Y + 
58 T0 3Y+ 57: HPLOT 4Y + 
56: HPLOT 5 Y + 55: HPLOT 4， 
Y+8T0O9Yt+54:2=Y+5 

= 10 T0 13: HPLOT 
2 = 274+1: EXT : 
HPLOT 7T0 13 二 好 :HPLOT ! 
274+ 好 T012Y+64: HPLOT 
tf+ 47 =Y+ 6 FOR Y = 
可 T0 3 STEP ~- 1 和 LOT 7 
:7 = 了 TI+1 NEXT ，HPLOT 16， 
Y + 537: HpPET 416 二 的 


EXTY 
于 中 ks= 二 TO 2000，REXT :， PRINT 


儿 和 {FFFs 
210 TEXT ;END 
220 TEXT ，PRINT *ERROR 4 PEEK 


CHRS (7) 
200 TEXT ，HOME ，VTAB 12:， PRINT 


“OKAY TO SAVE2? 《YITN)s 6ET 


6 PRINT 6$4: IF 6 =“Y” THEN 


PRINT 9 条 "BSAVE. STAFF ,hf4000 


程式 己 


6000- 15 00 24 的 站 00 人 80 的 
8008- 81 的 9 008100 [9 00 
6010-- DC 00 F OOFC OH0 
si8-.27 04 3C01S2016501 
6020--79 01 86 0 92 01 6 01 
6028-~-89 01 [CA 0 5 91 00 00 
8030- 0.00 00 的 09 3 人 虐 24 
4038- 24 35 3 224 24 35 36 
0040- 44 24 24 24 24 24 75 会 
8048- 中 狂人 E-86.01 00 09 36 
050- 红 24 24.35 36 2E 24 24 
4058- 35 3 08 24.24 24 24 24 
1060- 75 0E IE OE OE 96 05 00 
4068- 09 36. 蝶 242435 36 和 泪 
6070- 24 24 35 30 66 24 24 24 
4078- 24 24 75 人 364 96 08 00 
6080- 00 的 305 2424 3 卫 36 
4068- 2E 24 24 33 360 66 24 24 
6090~- 24 24 2475 全 3 96 2 
1098- 00 00 09 36 氏 24 24 35 
508N0- 3 2E242435366024 
50h8- 24 24 24 24 95 92 92 00 
6080- 的 的 3 24243536 
4088- 2E 24 24 35 36 6 24 24 
h0t0=- 24 24 24 95 92 92. 09 05 
60C8- 的 49 4 好 3 了 33 镍 
60D0- 20 65 24 24 24 24 28 .95 
4008- 92 92.00 00. 的 名 09 玫 
40E0- 8? 33 尼 20 45 24 24 24 
40E8- 24 24 和 92 92 12 05 00 


50 


《222)" IN LIME 划 PEEK (218 
) + 256 PEK 《219) 





eofr0- 09 4 09 汗 87733020 
o0F8- 9 24 05 00 92 轨 21 0 
oto00- 好 04 .64 04 了 于 27 37 
bt08- 97 3 芋 20 00 89 42 00 
bl1l0- 00 92 49 21 0 6464 04 
tlit- 24 25 9 于 红 呈 1237 

bd20- 20 20 40 12 0 00 00 92 
bl28- 4 21 0C 64 64 04 04 BR 
30- 17 于 - 政 320 3 和 89 
ol38- 92 92 01 的 2 各 21 0 


40- 64 64 .04 24 25 9F 民 了 下 


6148- 27 27 2 86 92 52 49 29 
6l30- 00 00 92.49 人 240C 2 
6158- 1C.iC 67 25:E5 8C1C 4D 
olo0- 91 92 92 00 00 92.49 人 
6l8- 24 0 2 1 1C 47.25.55 


60170~ 3 5 40 49 92 92 72 00 


6l78- 00 0 .020 站 252036 
bl8u- 25 2 20 56 00 00 4 28 
6188- 35 2 2 32 24.20 85 
6l90- 05 00 41 28 25 20 36 25 


98- 2036252030850100 


6180- 32 48 7 人 2420 了 0 27 24 
6lnh8- 27 20 20. SC 3F 4 21 15 
olB0- B4 12 B4 23 24 24 08 00 
6188- 0049 09 BE 7 17 24 24 
6lC0- 24 24 24 人 C 92 2 15. 全 


CS- 00 00 92 4 2E 20 25 FF 


6100- 24 25 20 25 BF 23 24 4 
61D8- 89 37 35 97 32.96 21 24 


olE0- 24 2C 00FF FF FF FF FF 





用 来 测试 生理 和 心理 状态 的 膛 藉 


o 例如 。， 念 了 测 视 力 。 有 所 亲 的 


视力 检验 悄 ( eye chart)。 


性 的 要 求 


由 於 人 类 对 於 精确 
*。 所 以 发 展 出 了 许多 种 的 工具 ， 


. 喜 了 检查 色 言 。 也 有 所 请 的 混 色 
图 。 其 它 垮 了 检定 智商 或 璧 学 测 
武 所 发 展 出 来 的 试题 与 仅 器 ， 也 
是 大 家 比较 邵 悉 的 例 于 。 
今天 。 由 於 个 人 电脑 的 盛行 


-四方 心 的 测试 


你 是 否 有 允 类 似 的 轻 验 : 在 
约 上 画 一 的 正方 形 。 而 过 件 事 想 
对 没有 想像 中 简单 。 接 下 来 我 们 
所 要 介 胡 的 程式 。 可 以 供 尾 者 做 
塌 一 个 练 必 的 工具 。 

过 个 程式 首先 会 在 和 萱 幕 上 申 
示 出 一 段 使 用 魏 明 。 
游戏 控制 器 上 的 撤 扭 ， 程式 便 会 
将 向 莫 置 於 高 解析 答 图 模式 。 沙 
开始 烩 出 一 个 正方 形 。 


四 方形 於 烩 秽 完 和 合 。 你 必须 


利用 游戏 控制 器 的 的 棵 。 将 莹 幕 
上 所 显示 的 点 移 到 私 莫 的 左上 角 
。 此 上 时， 程式 会 发 出 一 个 「 哩 j 
误 ， 阔 开始 导数 。 你 必须 使 用 控 
查 。 将 发 点 作 快 的 移 到 正方 形 的 
心 的 位 置 。 党 程式 侦 测 到 议 点 已 
在 四 方形 的 心 蛙 。 它 便 移 止 甜 数 
, 落 将 糙 果 显示 出 来 。 由 於 要 容 
忍 的 查 移 动 和 程式 侦 测 的 时 效 训 
差 。 而 过 就 是 它 的 交 不 。 如 你 去 
到 四 方形 的 中 心 。 你 已 经 成 功 的 


只 要 你 按 下 . 


5< 


。 要 股 寻 出 颈 似 功能 的 测 直 工具 
。 已 不 是 一 件 很 困 的 事 了 。 其 
实 适 些 测 就 工 具 的 使 用 。 往 往 人 
具 腹 用 与 娱乐 狂 。 搂 下 来 。 我 因 
就 根据 程式 来 做 个 别 的 脱 明 .。 


中 


完成 测 武 了 。 

整个 程式 的 内 容 於 附 程式 中 
o 下 面 是 程式 的 简单 襄 明 : 
110~170 

是 示 使 用 询 明 。 
180 
等 待 使 用 者 按 下 闭 戏 控制 器 上 的 
链 。， 以 开始 弄 起 。 
190 
使 蒙 莫 置 认 融 解 术 输 图 模式 。 蓄 
呼叫 稚 圈 的 副 程 式 。 
195~220 
获 接 柏 对 话 在 莹 莫 上 的 点 给 出 ， 
范 将 先前 的 点 去 掉 。 丽 COLOR 
的 值 可 控制 被 给 出 的 点 是 否 可 看 


-网 。。 时 交工 。 了 工分 别 代 


和 表 目 前 改 红 先前 拟 查 所 对 故 的 点 
座 标 。 晶 XX 7 均等 於 寺 蛙 。 就 
有 妇 示 点 已 被 移 至 营 幕 的 左上 角 。 
程式 便 开 始 姥 数 及 测试 的 工作 。 
250~300 

将 的 标 对 别 在 萤幕 上 的 点 答 出 。 
或 将 先前 的 点 去 掉 。 程 式 小 会 检 


查 的 村 所 对 厢 的 位 蔗 是 否 已 在 贺 
心 。 兹 将 里 数 融 数 Time 的 值 夫 
加 。 
400~420 
将 最 人 后 精 果 印 出 。 东 询问 受 测 人 
是 否 要 再 次 进行 测 武 。 

此 外 ， 蔚 者 必须 注意 到 下 列 
各 点 。 首 先 。 App1le 了 的 第 一 


高 解析 烩 图 模式 的 大 小 需 2 60 
xl 60 点 。 因 此 。 在 用 搁 查 将 
对 应 的 点 烩 出 上 时， 我 何必 除 防 止 
y 轴 座 标 超 尝 1 6 0 。 由 准 的 柱 
所 能 诈 到 的 x 轴 座 标 ， 催 乔 於 和 
到 2 5 5 之 关 。 故 不 需 特别 的 不 
理 。 答 图 与 游 戏 控制 器 的 界面 。 
读者 可 查寻 App1le 工 。 有 名 礁 
Applesoft BASIC 的 书籍 


四 方 心 的 程式 一 


110 HbQLOR= 3: TEXT ;HOME ，VTAB 

，， 遇 和 25 FLASH 

115 PRINT ENTER TEST NGRNAL 

:FRINT 

120 PRINT ”JIn this test， the 
CDSpttEr Niii draga aq 

1 PRINT ”circie in the.ScCreeh 

You must controla 

130 PRINT ”a Point by the joyst 
ICk and Rovye it intos 

135 PRINT ”fthe center of- the ci 
7CLe.s 

140 PRINT ”You must ove the Po 
int to 1eft-top Corner” 

145 PRINT * of the screenh to sta 
7t the test 

150 PRENT ”Coaputer- jil report 

a Score aftefr testing* 

160 PRIRNT ”Which is good if it 
15 5S9al1,， 

170 PRINT ”Push padGie 0 to sta 
rt the test 1 

{80 F FEEK -~ 16287) 《127 THEN 


18 
190 HBR ;60SUB SO0:TINME = 
195 XL = PE IOY1 = PLD F 


53 


人 > 了 3539 THEN YL = 3133 
200 HPLOT X 福 
205 X = PDL 0 = 了 有 L (人 
.了 了 19 THENY = ]59 
2 HPLBT xY: HCOLDR= 0 HPL9T 
HDLOR= 3 
cyXLzysYt=Y IFI= YY 
= 首 了 HE 5 
220 SGTD 205 - 
250Xz= PDL (0O:Y = 本 (让 
人 59 THEN = 159 
255 HPLGT YY 3 HCOLOR- 0 人 LT 
HeOLDR= 3 
< 人 = YL =Y 让 X 141 THEN 
300 和 
210 下 39 THEN 300 
:275 IFY》71THEN 300 
80 FFYC863 THNEN SO0 
285 60T0 400 
30 TI 有 = TI 拭 ， 十 1 PINT TJ 30T0 
5 
400 PRINT :， PRINT "Final Score = 
杂 作 
410 PRINT "Press SPACE to start 
next test。0hers ST0P5S9 
ET YY = THNEN 100 


20 EN 
300 REH 
“0 REH 《Dran Circle Using.De 
cli5sign Variabie iethod 》 
19 RE 
= YY 
0 
525 XI = Nt 
六 YY 
5 了 FLST 了 YY RELGT 人 HpL87 
xyY13 HPLOT X2,Y2 


手 与 眼 的 测试 


玩 电 动 球 具 要 获得 融 分 。 最 
重要 的 人 条件 便 是 。 你 必须 保持 手 
与 眼睛 的 协 镁 配合 。 此 不 所 介 帮 
的 。 便 是 一 个 测试 手 、 眼 协 铀 度 
的 简单 程式 。 


此 程式 - 开始 的 情况 和 前 先 


的 了 所 惰 测定 」 上 程式 相同 。 它 会 
在 开始 进行 列 起 前。 显示 一 有 使 
用 悦 明 。 待 你 按 下 效 厂 控制 器 上 
的 链 和 后。 程式 便 舍 在 痊 幕 上 粕 出 
一 个 长 方形 及 一 个 点 。 你 可 透 过 
的 村 来 移动 这 个 点 。 只 要 你 再 按 
下 控制 器 上 的 链 。 程式 便 会 立刻 
在 难 长 方形 内 答 出 一 深 列 的 长 方 
形 。 过 些 长 方形 会 由 大 而 小 * 逐 
一 的 被 给 出 。 而 且 彼 此 均 有 一 . 定 
比例 的 天 傈 。 你 的 工作 便 是 润 整 
点 的 位 置 。 使 它 不 超出 长 方形 所 
含羞 的 区 域内 。 只 要 点 不 包 合 在 
所 答 的 长 方形 内 * 程式 便 会 发 出 


5353 = 2 -YYI = 
人 +XY2= 人 YY-AN 

540 HPLOT X1 YI HPLGT 1 72 HRFLIT 
X2 1 LOT X2Y2 

545 车 六 《NTREN 7 

550 0 = 了 +43Y+6X=X+1i 60T0 
586 

570 了 = 了 本 有 人 ， ) = 
ttYsY=-1l 

389 下 X>YTHEN RETURN 

595 60T0 525 


一 个 T「 哩 」 声 。 艾 且 示 夫 加 你 的 
得 分 。 等 到 长 方形 均 给 代 完 学 线 
*。 程式 便 会 把 你 的 得 分 显示 出 来 
而 终止 测 武 。 

整个 程式 的 内 容 出 现 於 程式 
中 * 以 下 便 是 程式 的 说 明 : 
119 
呼 吓 凯 数 不 理 程式 。 
1 115~155 
显示 使 用 如 明 。 冰 等 待 使 用 者 的 
按键 。 
160~170 
熔 出 最 外 圈 的 长 方形 区 域 。 
190~200 
将 各 个 长 方形 的 长 、 寅 的 差距 求 
则 。 做 乱 稍 合计 算 其 端点 的 依据 
。 由 蕉 程式 共 会 给 出 2 0 个 长 方 
形 。 故 长 袖 的 通 减 值 可 按照 收 全 
位 贸 与 最 分 围 长 方形 的 工 砍 。 依 
比例 来 求 得 。 
“05~ 人 2 5 
将 目前 的 柏 对 有 厢 到 壹 幕 上 的 点 葵 


出 。 范 将 先前 的 点 去 掉 " 在 此 同 
肘 。 程 式 薄 等待 受 烈 人 按键 ， 以 
天 始 整个 测 武 的 工作 。 歼 数 和 5C 
*“.Y C 记录 的 便 是 点 的 环 覃 。 
250 

程式 发 出 香 千 。 提醒 受 测 人 到 
扰 工 作 已 经 开始 
235~520 

过 是 一 个 长 方形 炉 岗 的 角 路 。 每 


次 角 路 的 执行 都 会 输出 一 个 长 . 


方形 。2 4 0 至 2 6 0 的 氢 述 会 
算出 长 方形 四 个 端点 的 座 标 。 政 
加 以 给 出 。 同 时 也 著 取 的 棍 所 对 
糜 的 位 辕 。26 5 至 2 8 0 则 检 
查 点 是 否 在 长 方形 内 。 
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二手 与 眼 的 程式 2 
110 .TEXT :1 = 3.14159，809U8 600 


Ht HoE :TAB 5 HTAB 8:; FLASH 
1 PRINT ”EYE-HAND COORDINATE 
.TEST 

120 NORM8L ， PRINT 

125 PRINT ” In this test，5Ogpu 

er will 中 splay 

T303 PRINT ”。 a sqnara and a dot， 

“You 多 打 put thes 

13a 8RT ” ,dot ins3de the Squa- 

ray as Co8puter” 

140 PRINT 。 ake the Squarea S 由 
aiier。 有 SCOFB 和 [ 1 

有 PRSNT ” be displayed durindg 
“二 he 七 St 


PR“ 


8 了 二 RND 人 


点 在 长 方形 内 ， 加 分 |! 

3500 

发 出 昔 蹇 以 告 装 受 测 人 。 目 前 接 

查 所 控制 的 点 彰 不 在 长 方形 内 。 

3s510 

显示 成 柄 。 兹 烙 止 测试 

60O0~650 

处 理 雯 数 的 副 程 式 ” 
由 於 过 个 程式 只 会 在 给 筑 马 

0 个 长 廊 形 时 。 检 查 的 查 所 控制 


的 点 的 位 置 。 因 此 ， 你 最 多 只 能 


得 到 & 9 分。 如 果 你 荔 得 程式 执 
行 的 速度 太 快 。 可 以 加 上 类 似 下 
列 的 叙述 : 

515ROR J=170 100 
: JRXT 本 来 延长 各 长 方形 的 
给 奥 关 隔 。 上 列 边 路 的 执行 次 数 
可 依 你 的 需要 来 设 定 o 


Press paddle 9 te 5 
tarft the test。 


155 IF PEEK { - 16297) 《 128 THEN 
160 
160 H6R : HEGLOR= 3 
170 HPLGT 5,5 78 255,5;， HPLOT T0 
255 ,155，HNPLIT T0 5,15S: HPLUT 
T0 了,5 


= RD / 4 ， 


次 = NT (YI 
到 009 = 了 
1 20Y = 了 MT 
i85 YXY=Xt5YsYtS 
1 人 93Y1= orY2 = | 
3 宝 
1 


外 20 
200YRzstY-5120YB = (195 - 
站 /2 
co hCGLBR= 3 = FDIL 103YY = 
PDL (IF 159 THEN Y 
Y = 159 
2 的 HPLT 7 YY 
212 VTAB 22;，PRINT "press haddle 
0 to start ,the est 
21J XC = PDL (ONYC= PIHL TID I 
了 159 THE Y = 159 
220 HPLOT XC， YC: HCOLQR= 0: HpL0T 
XIYY; HL 3 := XCYY = 
并 
223.Jf PEEK (1 - 16287) 《 128 THEN 
215 
2 RSSHLT = 六 PRINT CHR 二 CHRS 
(7 
235 FOR I 了 = 了 说 2 
240 ML = X+ XIYL YLY+ YAI2 = 
)2 - X8:Y2 = 12 - 维 
2 人 = PIHL (OOYC = PDL (于 
YC 199 THSN YC = 159 
235 HPLOT XI XLSY2: HPLOT 
T0 YX2， Y2: HPLOT T0 X2， Y1: HpPL0T7 
T9 YY 


往 


本 文 所 介 狠 的 越 个 程式 ， 偿 
可 以 在 Apple J 上 使 用 :我 很 
希望 深 者 能 试 著 在 其 它 的 机 基 上 
发 展 出 钴 似 的 程式 。 希 望 你 鸳 得 
到 程式 的 乐趣 。 

其实 。 有 关 生 理 与 心理 状 胡 
的 副 定 。 是 一 个 很 专 亲 的 学 头领 
域 。 因 此 ，。 要 使 过 些 程式 有 实用 


了 尼 


-200 


245 
210 
“1 
280 


HPLOT XC,YC， HCOLOR= 0，HPL0T 


.YY HCDBLOR= 33XX = CSYY = 
Re 
FIXC《XETHEN 300 

IF 驼 人 2 THEN 300 


下 屁 人 THEN 300 
IF YE > yY2 THEN 300 


289 RESULT = at + 60T 310 


300 
3310 
320 
3410 
4500 


605 


tn 
tds 


6 


PRINT CHR 和 4 (7); RESULT = RES 
ULT+1 
VTAB 22;， HTAB 10:， PRINT "SC0 
RE = *;RESILT 
NEXT ] 


上 ND 


RE 

REH 《 Randoaize RA 
NDONH Ruhber > 

REH 

H0 卫 ;PRINT > 。 Push Paddl 
e 昌 ofthe joystiCks 
PRINT " to start the te 
St 


625 MINBER = RUDINUMBER) IF PEEK 


630 


《= 16267) 《127 THEN 425 


RETURN 


性 。 我 们 应 贞 多 做 一 些 取样 。 或 
再 修改 程式 的 做 法 。 才 能 使 得 测 


他 


: 试 精 果 产 生意 六 。 但 是 。 到 了 于 


个 地 步 ， 已 径 丰 仅仅 是 电脑 约 奖 


类 了 ，。 


其 间 逮 可 能 佬 及 到 法 律 的 


休 文 。 因 此 在 最 后 提醒 大 家 。 写 
一 个 能 实用 的 程式 。 一 定 泵 能 于 
门 洁 车。 
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人 





在 上 一 期 我 们 推出 了 上 趣味 
是 案 集 一 一 第 二 辑 」 。， 今 次 我 们 
降 接 上 新 的 图 案 推 出 。 而 上 一 期 
的 图 案 闭 重 於 程式 短 图 案 复 亲 。 


宇宙 星球 


过 个 是 图 形 的 图 案 * 还 有 星 
星 在 旁 。 所 以 给 允 需 时 “。 而 在 程 





式 1 5 0 袁 是 圆 环 的 秽 法 ， 你 只 


好 改写 他们 就 可 改 改 圆 甫 的 贺 术 


0 轨 
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供 读 者 作 一 爸 考 。 

今 期 和 上 次 有 点 不 同 。 程 式 
比较 长 点 。 但 图 案 亦 可 加 以 改 复 
。 给 各 宫 丈 给 图 的 攻 者 多 一 些 歼 
考 。 


储 入 : 


130 ATR 44,85 110 124 ,173,245， 
225 


圆 蓝 即时 改 禾 。 


宙 字 星 环 程式 


100= .= COS (0T)3:S > SI 
(DT) 

206 = 46 = 140:CY = 9 

30 HB6R2 : HCOLOR= 3 

40X=0Y=8 

50 HpLOT SEXY+ CUYY+CY 

6 FOR = 1 TD20 

70 FIR 1 = 1T053 

BT=XasCc-Y+SY=YAC1+ 
957 = 

?区间 三 : POKE 26,fL: IF CL = 
255 THEN RESTORE 
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100 HPt0T .TO0 SC + EXY+EY 

110 能 条 1 - 

120Y=Y-2: NEITI 

130 DATAN 564 ,88,125,155,171,211 
,255 

140 和 = RND (1)》 主 279:Y4 = RND 
(1 4 191 区 

150 X2 = RND (1 + 279:Y2 = RND 
-1 

160C=C+iIFCz=8THNC= 

-10 
170 HPLOT X4Y2 TD X4Y2 
180 60T0 140 站 





至 吉大 本 王 本 及: .2 了 
,四 内 人 3 
: 和 和 


三 放 汪 下 


曲 糠 是 一 个 很 简单 的 程式 。 
但 是 图 案 君 来 复杂 。 我 们 再 将 它 
加 以 改 画 。 可 以 把 复杂 再 加 趣味 
; 和 和 希望 坛 加 各 茜 者 多 同 意念 。 
你 又 可 将 5 0 除去 。 再 起 试看 。 


二 
| Ca 
L 一 和 





曲 入 的 进化 


站 
和 
， 


得 
-加 

La 

| 


2 


曲 粮 的 进化 程式 


H6R2 ，HCOLOR= 3 
FORY=0TO191 STEP 和 
HPLOT 0OY TD 279 TY/ 191,19 
1 
HPLOT 0,Y TO0 122 4 Y 1 111,12 
3 
HPLOT 0OY TO t+ Y /222,12 
3 
NEXT 











星球 的 动力 


是 球 的 动力 是 一 个 3 - D 的 
赔 形 。 党 星球 图 形 答 理 完成 合 。 
限 着 就 转动 。 直 至 停止 。 如 果 你 
想 改 没 过 个 程式 。 是 十 分 容易 的 


*。 只 要 把 3 0 行 改 志 需 : 


30 605UB 180 


然 谷 再 有 UN 一 次 。 运 时 星球 已 
径 给 除去 。 而 黎 成 一 枝 不 断交 动 
的 旗 。 
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E 


星球 的 动力 程式 


140 上 = 80 
150 F = 4 
160K = 〔05 fp) 
- 170L= SIN(P) - 
,294 + 7 STEP . 180 HPLOT CS TO KYF + CILYS 
+ 全 TO 全 下 + 人 让 至 椰 + 二 
5T0WYaiF+crstl5T 
和 +EYCNEIO+Y40TOK 
POKE 230,32 EtcLti0+ 轴 TO0Ks 95+ 
NET [LasiOtETIHSE 台 +Ch 
FIR I = 1 10 90 10 +E TO 全 E 4 CN 和 1 : 
POKE 49236 + (JINT (7 2) = 0+120T0DKEEY+Y CC 人 10Y 
LI / 2)) 1l20 TOKAF+CLESY+Y 150 
FOR = 1 T0 200 TO NEF+CNES+150T0 
100 EXT C,160 
110 NEXT 190 和 = 
120 ED 200 有 = 
| 1830 5 =.127 210 了 ETURN 
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首先 向 各 诗 者 致 歌 ; 因 仿 机 
器 有 点 问题 。 所 以 今 到 2 5 期 和 
2 6 期 的 程式 有 些 钳 台 。 而 鱼 识 
的 是 2 6 期 的 < 水 长 流 > 和 2 5 
期 的 < 太空 光 亡 者 之 。 请 各 许 者 


水 长 流 


0AC0- 80 00 0C 65 05 了 00 0 
ONC8- 49 的 上 06h900 乓 07 
0h00- NM9 20 85 08 38 h9 27 65 
0h08- 02 85 03 A2 08 1M4 02 8! 
0AE0- 05 MO 12 91 07 A4 03 Bi 
0AE8- 05 MO 15 91 07 人 4 02 C8 
OAF0- 8! 05 NO 43 91 (7 AM 03 
0AF8- 886 8B1 05 0 414 91 07 18 
0800- 5 06 49 04 85 06 NM 08 
0808- 69 04 85 08 CR D0 CE 
0910- 02 E6 02 全 02 [9 14 00 
0818- 06 19 00 85 02 5 04 60 
0820- 04 80 F3 A0 80 NO 可 和 
0828- RO AO ARO HR NO NM MO 
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-74880DfCF00 力 075 






太空 逃亡 者 


0830- NO NO NO NO MARNHMNN 
0838- h0 h0 ANO AMO RNO ANO NO MO 
0840- AO NO AN AAAN NO 
0848- 80 AMO ANO AMO MO AN hM0 AM 
0850- MO AMO RN0 hNO RNO NO NO NO 
08J8- 的 80 RN0 6080 0 MAHMO 
0860- NO AM0 ANO ANO NO MO AN 的 
0868- 人 0 AMO AO MO MO NO NM 
扣 70- AM AAANAN NMNO 
0878- F3 F3 F3 F3 0D7 F3 0 f3 
0880- 00 8A 44 24 3 旨 22 轼 秆 
0888- 要 外 力 2043 20 49 20 
0890- 外 22 00 58 08 82 00 贞 
0898- 44 24 3 22 42 4 秆 4 
08h0- 44 20 22 38 46 24 8 22 





编辑 先生 : 
本 人 所 用 之 机 倚 “ VETORIO ”Built in64K，。 请 间 去 和 三 机 可 


否 加 上 JI 2&S8KRAM 卡 ， 如 可 以 需 搬 在 那个 SLOT ? 此 机 之 0 8SLO 


一 人 是否 要 长 期 订 叶 。 
本 机 加 Z 80 卡 行 CEP~M 时 。 和 常常 有 BAD SECcTOR 之 现象 出 现 


。 是 否 Z 8 0 卡 与 机 很 不 协 镁 。 有 何 办 东 加 以 镁 整 ?入 请 蝎 数 。 敬 向 


纺 安 ， 
昔 者 MANNING 上 


镍 者 MANNING 君 : 

自 “ VETORIO >” 推 出生 : 便 已 有 市 场 反 应 请 其 不 可 用 Z--80 卡 ， 
因此 “VETORIO ” 亦 有 推出 一 个 寺 好 的 版 本 。 故 MANNING 君 的 一 片 可 
能 是 昔 的 VETORIO 梳 。 而 产生 问题 的 部 份 是 因 常 初 设 丸 2 一 8 0 卡 的 
取 巧 。 用 了 APPILBE 本 身 的 不 等 时 锁 妃 号 去 给 2- 80 用。 而 28909 是 要 
求 一 对 称 的 时 钾 操 作 。 故 一 些 波 形 较 差 的 板子 便 不 可 有 运行 283 0 卡 *。 面 其 
上 的 SILOT 0 是 可 搬 上 R O M 卡 。 但 运用 时 是 需要 在 MONITOR 内 角 动 


-一 -上 一 一 -mA 


二 个 软体 &WITCH 才 可 使 用 * 但 手头 末 有 资料 。 故 不 可 人 需 你 刊登 出 8 一 
风 工 IC 五 的 地 址 多 犹 诉 O 
划 果 信 箱 畜 覆 


编辑 先生 : 
本 人 有 Super5 了 PRINTER 卫 N9--1090:GRAPPBER+PRI 


_NTER CARD 及 VISIPLIOT 1.00 C1L981Program * 但 
党 想 印 出 图 形 时 。 却 不 可 以 。 请 指导 。- 

如 想 角 出 IIST Program 在 Print er 模 时 有 8 0 行 Column ， 
铺 问 需要 什么 Control Cobe。 
昔 者 C,， Luk 上 
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明 访 者 U k 君 : 
VISIPLOT 是 在 闽 果 上 使 用 的 图 形 坎 件 。 而 在 蔬果 配备 的 打印 机 是 
时 以 SILENTYEE 坑 标 准 避 人 备 。 而 另外 亦 有 些 中 流行 的 标准 架构 一 一 卫 一 
时 PsoN 打 印 机 及 其 控制 介面 因 每 种 打印 机 及 打印 介面 均 有 不 同 的 控制 指 
今 ， 故 未 必 所 有 的 图 形 款 件 均 可 运行 在 任何 的 配搭 上 。 以 VI8BIPLUT 篇 
例 。 只 可 提供 给 APPI 了 了 8IIENTYPBR, IDS_PAP 职 TIGER 4 40. 
及 450;，NEC SPEINWRITER5.510r55.20 及 5550.。T 一 
REBNDCOM 200 0 等 四 种 。 而 在 VISIPELOT 滋 片上 有 一 些 不 同 打印 
-机 的 晓 动 程式 。， 只 需 把 所 选用 的 相应 要 动 程式 改名 需 VIS IPLOT. DRI 
一 .VER 过 名 字 ，。 即 可 改 篇 相 订 的 哎 动 程式 了 。 
如 以 来 信 所 述 的 配备 。 要 作 打 印 8 0 行 字 。 只 需 刍 入 : 一 一 
卫 及 少 工 <CR>> 
PRINT CHR9(0a) 802”<CR> 
LIST <C R > 
序 可 印 出 0 字 一 行 了 。 
将 果 信箱 趣 桥 


编辑 先生 : 
本 人 对 足 刊 兴 二 十 五 期 的 浇 款 保 尺 BASTC 程 有 有 所 疑 允 向 你 请 才 o 
本 人 无 法 能 锡 在 程式 档案 名 字 内 暗藏 CTRL 码 。， 
本 人 依照 贵 刊 的 右 法 INIT 了 五 人 < CTRES - Aj) IELO ，。 但 :从 
一 ee 可 以 者 于 百 本 (到 CT 惧 工 >> 一 人 了 工 90” ， 是 否 机 件 发 生 问题 
请 能 您 我 解答 ， 计 和 儿 。 东 和 宫 和 幅 刊 茹 蒸 日 E。 
读者 ” 德 


沪 者 德 君 : 
- “ 照 来 信 所 示 。 相 信德 君 是 如 合 了 文中 作者 所 委 和 过 的 意思 。， 在 文中 工 一 
NITT 了 也 <CTRE 一 A> 工 工 0 中 的 < CT RZE 一 A> 是 委 示 按 下 CTRI 链 及 
A 键 ， 面 东 是 打 入 “ < CTRI 一 A>”8 个 字母 。 妇 是 在 链 人 了 ”JINII 
HB” 和 后 '， 再 按 下 < CTREI 一 及 人 > 然后 才 是 “ 工 工 0 “等 字 。， 

头 果 信箱 笨 氏 


的 
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微 求 稿 件 

本 刊 炊 迎 各 十 者 投稿 。 无 给 是 硬件 较 作 、 自 公 程 式 、 玖 件 评 介 等 一 律 数 迎 。 在 投稿 肝 哺 
注意 以 下 事项 : 

1 ) 来 稿 缚 用 4 0 0 字 原 稿 破 晋 请 。 文 字 一 般 以 不 超过 2 0 0 0 字 埋 限 。 

2 ) 如 稿件 附 有 限 片 。 必 须 清晰 ; 而 输 国 则 须 清楚 整 台 ; 紫 唐 附 有 其 设 明文 字 。 
3 ) 如 傈 程式 稿件 ， 缚 把 程式 储 在 磁 碟 或 卡 式 需 上 ， 范 附 上 程式 印 列 一 份 。 

4 ) 翻 见 稿件 必须 驻 明 原 文 出 不， 最 好 附 上 原文 之 副本 乙 份 ， 以 便 寡 考 。 

5 ) 本 刊 对 来 稿 有 权 作 删改 。 而 稿件 一 经 刊 出 即 致 戎 本。 

6 ) 投稿 者 清 将 作者 之 贤 实 姓名 、 联 烙 地 址 、 志 疾 付 上 ， 以 便 联 稿 。 

?7 ) 切 缴 一 稿 雨 投 。 

国 投稿 消 守 

九 稻 中 央 训 政信 箱 ? 2 0 2 7 驶 

项 果 用 家 月 刊 收 

封面 哺 直 明 [投稿 」 二 字 


3 和 入 3 卫 汪 和 于 入 于 3 和 2 二 二 


全 十 汪 和 是 省 放任 生 和 E 太 站 不 的 下 世代 二 攻 必 趟 革 年 代 直 民 丰 二 人 下 趟 十 攻 下 生 、 


直下 二 


短 果 用 家 月 虱 
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